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NOTICE 


This report was prepared as an account of Government sponsored 
work Neither the United States, nor the National Aeronautics and 
Space Administration (NASA), nor any person acting on behalf o 


A Makes any warranty or representation, expressed or im- 
plied, with respect to the accuracy, completeness, or 
usefulness of the information contained in this report, or 
that the use of any information, apparatus, method, or 
process disclosed in this report may not infringe privately 
owned rights; or 


B Assumes any liabilities with respect to the use of, or for 

damages resulting from the use of any information, appara- 
tus, method or process disclosed in this report. 

As used above, "person acting on behalf of NASA' includes an> em- 
plovee or contractor of NASA, or employee of such contractor, to 
the" extent that such employee or contractor of NASA, or emp oyee 
of such contractor prepares, disseminates, or provides access to 
any information pursuant to his employment or contract with NASA, 
or his employment with such contrac.or. . 
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COMPUTER PROGRAM FOR CALCULATING OFF-DESIGN PERFORMANCE 
OF MULTISTAGE AXIAL-FLOW COMPRESSORS 

b y 

H. F. Creveling and R. H. Carmody 


SUMMARY 


The technical objectives of the contract included generating a computer 
(IBM 7094) programmed axial-flow compressor off-design aerodynamic per- 
formance calculation which accounts for variable specific heat and full radial 
equilibrium of the flow, including streamline curvature and radial gradients 
in total enthalpy and entropy. The resulting performance computation is iter- 
ative, with efficiencies determined from a total pressure loss coefficient which 
is taken as the sum of a calculated reference loss coefficient and an off-refer- 
ence increment in loss coefficient. The reference loss is established through 
the use of correlated blade element profile loss data and the loss associated with 
a normal shock in the blade passage, where appropriate, for diffusion factors 
from 0 to 1. 0 and Mach numbers from 0 to 1.6. A compressor of specified 
geometry is considered and energy addition for a given flow rate and rotational 
speed is determined through the use of blade element performance data con- 
cerning reference incidence angle and deviation angle. 

Tabular data for loss, incidence angle, and deviation angle are available 
in the program for NACA 6 5 -series and double-circular-arc blade sections. 
Calculations for reference incidence and deviation angle can be made using 
NASA 2-D or 3-D design rules. Deviation angles for nonreference incidence 
conditions are obtained by adding increments to the reference values. 

The program accepts input data describing the geometry of a compressor 
having up to 12 stages and, barring any error messages from the calculation, 
computes the aerodynamic performance for a given rotational speed and flow 
rate, and for given uniform inlet conditions of total temperature and pressure. 
The design computations may be based on 5, 7, 9, or 11 streamlines, at the 
user's option. Hub and tip blockages are input separately, at each axial 
station, as the unblocked fraction of local geometric annulus area. The pro- 
gram user has the capability of specifying the mass flow at each blade row. 

Any changes in mass flow are distributed proportionally among all streamtubes 
involved in the design computation. 

The computation and the corresponding program logic are developed in 
detail in Appendix A (System of Equations and Computations) and Appendix C 
(Program Flow Charts). The Fortran listing of the computer program is 
shown in Appendix B. 
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Input format and the preparation of required input data are presented in 
Appendix D, along with the data set describing a sample performance calculation 
problem. Appendix E illustrates the format of program output, through presen- 
tation of the computed results for the sample performance calculation problem. 


INTRODUCTION 


As a part of Contract NAS3-7277 for the NASA-Lewis Research Center, 
four axial flow compressor computer programs were developed. The first 
of these programs was based on the assumption of simple radial equilibrium 
of static pressure and constant efficiency radially. In this program limits on 
hub and tip ramp angles, axial velocity ratio across blade rows, rotor hub 
and stator tip loadings, rotor exit relative flow angle, and stator hub Mach 
number are specified; the velocity diagram and stage-by-stage performance are 
calculated. This program is reported in Reference 1. 

The second program accounts for complete radial equilibrium of flow. 

Losses are evaluated on the basis of blade element loss prediction methods. 

Radial distribution of energy is specified as a polynomial variation of whirl 
velocities at the exit of each rotor blade row; rotor tip loadings are specified 
as are limiting values of rotor hub relative exit angles, stator hub Mach 
numbers, stator hub loadings, and the compressor flow path. This computer 
program is designated as "Axial Flow Compressor Design Program II", and 
is reported in Reference 2. 

A third design program was also developed under this contract and is 
reported in Reference 3. Program in differs from Program II in that the 
radial distribution of total pressure is specified rather than the whirl velocity 
distribution, and there is the option of specifying the flow path or specifying 
the axial velocity ratios and calculating the resulting flow path. 

The final program developed under this contract is an off-design performance 
calculation and is reported herein. The calculation accounts for variable 
specific heat and full radial equilibrium and determines energy addition and ' 

adiabatic efficiencies on the basis of data for blade element turning and loss. 

The program user has available as options either double -circular -arc or 
NACA 65-series blade performance data as published in Reference 4, Chapters 
VI and VII, plus the capability of specifying reference incidence angle through 
tabular input for any individual blade row or through the criterion of suction 
surface tangency for any double -circular-arc blade row. The off -reference 
increment in deviation angle is furnished in the form of a correlation of 
selected NASA data. 


2 



Adiabatic efficiency is determined iteratively for each streamline in each 
blade row, using: (1) correlated reference profile loss data and reference shock 
loss computed on the basis of the normal shock-in-passage model of Reference 5 
and (2) correlated results of NACA data expressing the off-reference increment 
in total pressure loss coefficient in terms of (i~i re f) and relative inlet Mach 
number. 

The program can handle up to 32 axial stations and, subject to this con- 
straint, the user may use dummy blade rows as described in Appendix D. End 
wall blockage is input to the program at the hub and tip for each axial station and 
is expressed as the unblocked fraction of geometric annulus area. 


SYMBOLS 


Note: The primary symbols are illustrated schematically in Figure 1. 
a sonic velocity, ft/sec 

A, B, C, D, E constants in whirl velocity polynomial 
b axial spacing of computational stations, in. 


C P 

c 

D 

F 

F, G, K, W 

Sc 

h 

H 

i 

J 

L 

M 


specific heat at constant pressure, BTU/lb m -°R 
blade chord, in. 

diffusion factor; total derivative 
blade force on gas, lb£/lb m 

constants, variously defined in Equations (A-38) through 
(A-40) and in Equations (A-44) through (A-46) 

universal gravitational constant, 32. 174 ft-lb m /lbf-sec 2 

inlet blade passage dimension normal to flow h = s cos in. 

enthalpy, BTU/lb m 

incidence angle, degrees 

conversion factor, 778 ft-lbf/BTU 

overall compressor axial length, in. 

Mach number 
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m 

n 

N 

O 

P 

P 

Q 

R 

Ri 

n 

s 

S 

Si 

t 

T 

U 

V 

w 

X 

Z 

Greek 

a 

/9 

r 

8 


molecular weight, lb m /mole 

axial station index 

number of axial stations 

blade throat dimension, in. 

percent blade span 

pressure, lbf/in. 2 abs 

heat transfer rate, BTU/lb m _ sec 

radius, in. 

ith rotor 

gas constant, ft-lbf /lb m -R° 
blade spacing, in. 
entropy, BTU/lb m -R° 
ith stator 

time, sec; blade thickness, in. 

temperature, °R 

wheel speed, ft/sec 

fluid velocity, ft /sec 

mass flow rate, lb m /sec 

fraction of blade span 

axial coordinate, in. 

ramp angle, degrees 

air angle, measured from engine axis, degrees 
ratio of specific heats 

blockage; unblocked fraction of annulus area 


V 
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Greek (cont) 


* 


5 ° 

A 

* ref 

V 

6 

v 

P 

<T 

6 

(O 

CO 

Subscripts 

1 

2 

3 

2-D 


c 

e 

g 

H 

i 

.1 


deviation angle, degrees 

change; final value minus initial value 

reference air turning angle, defined in Equation (3) 

adiabatic efficiency 
circumferential coordinate, radians 
Prandtl-Meyer angle, degrees 
density, lb m /ft 3 
solidity 

air turning angle, degrees 
blade camber angle, degrees 
angular speed, radians /second 
blade total pressure loss coefficient 

rotor entrance station 
rotor exit station 
stator exit station 

designates a 2-D quantity in NASA blade element performance 
correlations 

designates a 3-D quantity in NASA blade element performance 
correlations 

effective value (of hub or tip radius) 
geometric value (of hub or tip radius) 
hub section 
ideal 

designates value of variable at reference streamline 
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Subscripts (cont) 

L limiting value 

m metal 

max maximum value 

p profile 

ref reference, or minimum total pressure loss, conditions 

R rotor; radial component 

S stator 

s shock 

ss supersonic 

T tip section 

t total 

0 whirl component 

Z axial component 

Superscripts 


relative value of a variable 

value of variable corresponding to a Mach number of 1. 0 


V 
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TECHNICAL DISCUSSION 

This off-design performance computer program, bearing designation N36, 
accounts for full radial equilibrium including radial gradients in total enthalpy 
and entropy. Specific heat is treated as a function of temperature with the 
exception of its use in the computation of shock loss, where Cp is assumed 
constant; elsewhere in the calculation, all integrations involving cp in the 
integrand are performed rigorously for variable Cp. The program will not 
calculate supersonic axial flows; a check is made at the midstreamline of each 
axial station and the computation is terminated with an accompanying error 
message whenever an axial Mach number greater than 1. 0 is encountered on 
three consecutive passes through the calculation. 

The program requires a description of the geometry of the blading in each 
blade row and a description of the flow path geometry, including the location 
of all axial stations, plus hub and tip blockages at all stations. Required input 
data is described in detail in Appendix D. The iterative computation of adiabatic 
efficiencies at each streamline of each station is based on the total pressure 
loss coefficient, which is evaluated as the sum of the reference loss coefficient 
and an off-reference increment in loss coefficient. That is, 

"t = “t, ref + < 5 t - "t, ref* 

where 

“t, ref = 5 p, ref + 5 s, ref 

The reference profile loss data is input as a correlation of blade profile 
loss parameter vs diffusion factor for hub, mean, and tip blade sections. 

This profile loss data is interpolated and extrapolated to any point along 
the blade span by means of a second degree curve fit. Reference shock loss 
is computed at each streamline position by means of the normal shock model 
of Reference 5, making use of the flow angle at the shock (input as a function 
of blade span for each blade row) and assuming flow at the computed relative 
inlet Mach number enters the blade passage at the reference value of incidence 
angle. 

The program draws its input-specified reference profile loss-data sets 
from a master file or library of up to 999 loss -data sets. This master file 
appears as permanent data and is located at the rear of the program deck; this 
library of loss-data sets is the only information stored as permanent data. Each 
reference profile loss -data set consists of 20 values of profile loss parameter 
(3»p cos $ 3 ) / 2 <r for each of the hub (10% span), mean (50% span), and tip 
(90% span) sections. These 60 values of loss parameter appear on 5 cards con- 
sisting of 12 fields of 6 columns each. The values of loss parameter for the 
hub section are entered first; next, the values for the mean and tip sections. At 
each blade section, values are entered corresponding to increasing values of 
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diffusion factor. The program automatically assigns the 20 loss -parameter 
values at any blade section to the 20 diffusion factor values 0, 0. 1, 0. 15, 

0. 20, 0. 25 1. 0. 

The off-reference increment in total pressure loss coefficient is established 
using a correlation of selected NASA data, which takes the form of those shown 
in Figures 2 through 4 for the hub (10%), mean (50%), and tip (90%) blade sec- 
tions of rotors. These three correlations are tabled directly into the computer 
deck for automatic use in the performance calculations. The 50% span rotor 
loss data curve is tabled into the deck for use at each of the hub, mean, and 
tip sections of all stators. As is the case with other blade element performance 
data, the actual tabulated data representing plotted correlations appears in the 
listing of the Computer Source Deck, shown as Appendix B. For the off-ref- 
erence loss data described, interpolation and extrapolation along the blade 
span is done by second degree curve fit, in the same manner as for reference 
profile loss data. 

The program computes performance in any given blade row for either 
65-series or double-circular-arc blades, and the user has the option of 
specifying or determining the reference incidence angle at each streamline 
for any individual blade row according to one of the four following options: 

1. NASA 2-D incidence rule 

2. NASA 3-D incidence rule 

3. The criterion of suction surface tangency (for double-circular-arc 
blades only) 

4. Tabulated input; i re f vs radius 

The third option shown above employs the expression 

c tan jj’ + t - t 
4 max edge 

c + *edge sin 

2 




which is shown as Equation B-42 in Reference 6. Note that for the NASA 2-D 
and 3-D incidence rules the reference incidence angle is determined for the 
reference inlet air angle and Mach number occurring at the particular point 
being calculated. Thus, in general, the reference incidence value does not 
remain fixed at a given axial and radial station for different flow points on a 
speed line. Similar to the incidence angle options the user may elect to 
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establish the reference deviation angle at each streamline of an individual 
blade row through the use of either 

1. the NASA 2-D deviation rule 
or 

2. the NASA 3-D deviation rule. 

The NASA rules describing reference blade element performance are 
those found in Reference 4, Chapters VI and VII, and curve fits of the correlated 
data plotted there appear directly in the Source Deck listing (Appendix B of 
this report) in tabular form. The off-reference deviation angle is expressed as 

8° = « ref + ( 8 ° " « ref > (2) 

where the off-reference increment in deviation angle, 8 ° - 8 £. e f, is 
obtained through correlation of selected NASA data, as shown in Figures 
5 through 7 for both rotors and stators, where e re f represents the reference 
air turning angle: 

e ref = ^ P 1, m + *ref ) (P 2, m 8 ° e £ )• (3) 

The correlated data revealed no significant dependence on Mach number 
or on position along blade span; consequently, one table representing the data 
plotted in Figure 5 is used for both rotors and stators and is entered for each 
of the hub, mean, and tip blade sections. It should be noted that, although the 
increases in deviation angle as incidence angles decrease from reference 
incidence, shown in the curve fits of Figures 5 through 7, represent the 
trends of the data realistically, this trend in the curve fit can cause program 
instability if the incidence angle is well below reference incidence. 

Any interpolation or extrapolation of off-reference deviation data along 
blade span is performed according to a simple straight-line fit. 

PROGRAM DESCRIPTION 

The basic equations of motion which govern the three-dimensional flow 
of an inviscid compressible gas through a turbomachine have been derived in 
many reports such as Reference 4. 

The pertinent equations for steady axisymmetric flow in cylindrical co- 
ordinates are: 

Continuity Equation 


1 d(/»RV R ) dW z ) 

r £r + az = 0 

Radial Equation of Motion 

dHt as v e amv*) /av z av R \ 

g c J dR = Sc f R + gc JT a R + R £R + Vz \ <JR ~ az J 
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Circumferential Equation of Motion 


\ 


1 T d(RV0) a(RV^)' 
° = g ° F 0 " R Vr dR + Vz dZ 


Axial Equation of Motion 


dH t 

8S 

V* 

d(RVfl) 

"dv z 

* 1 * * * V R~ 

g c J dZ 

*c F Z + «c JT JZ + 

R 

dZ ' V R 

dR 

dz 


Energy Equation 


DH t o> D(RVtf) 

Dt ' Q g J Dt 
c 

Gradient of Entropy 

PS _ Q 
Dt * T 

Condition of Integrability 



( 6 ) 


(7) 


( 8 ) 


(9) 


( 10 ) 


Equations (4) through (10) relate eight unknowns in Fr, F^ , F^, Vr, V q , 
V z, S, and H^. 


The compressor design analysis considered for this study considers full 
radial equilibrium and radial gradients in total enthalpy and entropy. The 
simplifying assumptions are: 

1. Only stations between blade rows are to be considered; therefore, 

Fr, F q , and Fz are zero. 

2. Heat transfer is zero therefore Q is zero. 

3. Consideration need be given only to the radial equation of motion. 

With these assumptions. Equations (6), (7), (9), and (10) are eliminated. 
Equation (4) is then rewritten for convenience as 
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and Equation (5) is written as 


V 


2 

Z 




(T) dT - (V* - V/) - 
3 




where the subscript j here refers to the reference streamline used in the in- 
tegration. The energy equation becomes 


g c J (AH t ) = o>A(RV0) (13) 

The iterative solution of this set of equations in this application requires 
specifying compressor geometry, rotational speed, flow rate and inlet con- 
ditions plus blade element turning and loss performance correlations for each 
blade row from among the available options, as described in detail in Appen- 
dix D. The performance of any blade row, streamline by streamline and over- 
all, is obtained through the use of blade element performance data for flow 
turning and total pressure loss in developing, iteratively, a converged simul- 
taneous solution of Equations (11), (12), and (13). Clearly, Equation (13) reduces 
to 


AHt = 0 (14) 

for stators, where « = 0. Performance of a whole compressor, stage by 
stage and overall, is obtained through satisfaction of Equations (11) through 
(13) simultaneously for all blade rows and for inlet and exit ducting, using 
the appropriate specified blade element performance correlations for each 
individual blade row. The program user may specify dummy blade rows in 
the compressor flow path as a means of providing space between adjacent 
blade rows or of providing extra inlet and/or exit stations. In each dummy 
blade row through the compressor, the performance calculation conserves 
moment of momentum of the flowing fluid. 

The primary objective of this computer program is to determine off- 
design performance of given axial flow compressors in accordance with 
full radial equilibrium and with adiabatic efficiencies determined from blade 
element analysis of total pressure loss. The detailed procedure to accomplish 
the objectives of this program, and the development of the program logic to 
automate this performance calculation are discussed in the following subsection. 
A detailed summary of the specific calculations is given in Appendix A. 
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DEVELOPMENT OF PROGRAM LOGIC 


The basic task of the computer program described herein is the develop- 
ment of the axisymmetric model flow through a given compressor at known 
rotational speed, flow rate, and inlet conditions. This reduces to establishing 
simultaneous iterative satisfaction of the energy, radial equilibrium, and 
continuity equations, using blade element performance data to establish flow 
turning and total pressure loss at each step of the iteration. Hence, energy 
addition and efficiency are established in the programmed flow calculation 
by the performance of each blade row which is in turn established by the 
blade element performance data. 

The radial profile of axial velocity at an axial station is obtained by sub- 
stituting tangential velocities into the radial equilibrium equation, (12), and inte- 
grating the resulting expression from a reference streamline j to any other 
streamline. The term V2 serves as the constant of integration and must be 

Z j 

adjusted to satisfy continuity; V^. is established by trial and error at each 

axial station, for each pass of the design computation. 

The program begins a performance computation by reading in the specified 
data on which the design is to be based, including: (1) the coefficients de- 
scribing Cp variation with temperature, (2) the loss data sets elected from 
the master file, and (3) data basically describing the machine to be studied, 
including relative error tolerances to be used in the iterative computations, 
and data for each of the stages. The stage data includes: 

• Specification of either 65-Series or double-circular- arc blade sections 
for rotor and stator 

• Specification of the reference profile loss data sets to be used for rotor 
and stator 

• Specification of the desired option(s) for determination of reference 
incidence angle in rotor and stator 

• Specification of the desired option(s) on reference deviation angle com- 
putation for rotor and stator 

• Flow increments, if any, in rotor and stator 

• Radial distributions of solidity, inlet and exit metal angle, maximum 
thickness /chord, throat /spacing and flow angle at the assumed normal 
shock for both rotor and stator 

The first four axial stations of the flow path represent the inlet, and the 
last three stations represent the exit. Any extra stations desired to specify 
inlet or exit geometry may be added through the use of dummy blade rows. 

The program begins its computation by evaluating Tt, Pt,and c p (T) in the 
inlet. Setting Vr and V# in the inlet to zero, and assuming dR/dZ and 
d2R/dZ2 both zero at the front of the machine, the program then sets mass 
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flow rate throughout the inlet equal to the flow rate at the first station. Using 
flow increment data specified for each input blade row, total flow rate at each 
station of the entire input flow path is then computed. Further, the program 
establishes the number of streamtubes and the midstream index streamline to 
be used in axial velocity computations. 

Next, the program performs a simplified analysis of the first rotor, using 
Carter's rule to determine deviation angles at each streamline and producing 
a radially constant value of exit axial velocity. This simplified estimate of Vz 
is assigned to the exits of all blade rows downstream. At this point, deviation 
angles and efficiencies are estimated for all blade rows and an estimate of 
velocity vector, temperature, and pressure is established for each streamline of 
all axial stations. 

Next, the program begins a more detailed, full radial equilibrium consider- 
ation of the first six (or seven) stations of the given flow path. Depending upon 
whether the entire flow path is made up of an even or odd number of stations, 
the program considers either six or seven stations at a time, since at each point 
the program has established full convergence in the performance computation, 
two downstream stations are added and two upstream stations are dropped from 
consideration. In this way the program "marches" through the entire flow 
path, step by step. Implicit here is the assumption that a converged flow solution 
at any axial station is insensitive to changes in flow properties computed six 
or more stations downstream. The detailed consideration of flow in any six 
(or seven) station portion of the flow path involves establishing an axial velocity 
distribution using full radial equilibrium, and performing a check on continuity. 

(It is important that the program does not generally force a satisfaction of con- 
tinuity during early calculation passes at any station. A variable damping 
factor is employed in the calculation, which limits the large changes in Vzj 

generally required to satisfy continuity during early passes of the calculation 
to only a small portion of their calculated size. Conversely, for small required 
changes in V^. generally encountered near convergence, the damping factor 

permits a change approaching the size of the actual change required to satisfy 
continuity. In this way, considerable calculation time is saved through not 
forcing a satisfaction of continuity at a given axial station until other flow 
properties there are also approaching their converged values.) 

Next, blade element performance data is used where applicable, for all 
streamlines and all stations being considered, to re-establish flow turning 
and blade loading. Finally, total pressure loss is re-established (again using 
applicable blade element data) and the axial velocity distribution is re-estab- 
lished for each of the stations presently considered, subject to the action of 
the variable damping factor just described. When complete convergence of 
calculated values of flow properties is attained for all axial stations under con- 
sideration, the program calculation "marches" one step downstream in the 
manner previously described. Barring any error conditions (and the corre- 
sponding printed error messages) and with convergence re-established at 
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each step in the manner described above, the calculation "marches" one 
step at a time to the rear of the given compressor flowpath. After convergence 
is obtained for the entire performance calculation the program performs a 
check for choking conditions at all streamlines for all blade rows in the machine. 
If choking is indicated anywhere, the program logic prints a message indicating 
this. There is no calculation of flow shift or any other action taken by the 
program logic. The program prints the computed performance output in the 
general form shown in Appendix E. 

As indicated, the design computation may stop at numerous points and 
produce one of a number of error messages if difficulty is encountered for 
physical or numerical reasons. The stopping points and corresponding error 
messages are shown in the program flow charts and in the source deck listing. 
Appendices C and B, respectively. 
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Figure 6. Off- reference deviation correlation — mean section. 
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APPENDIX A 


SYSTEM OF EQUATIONS AND COMPUTATIONS 




The system of equations and computations presented in this appendix con* 
stitute an iterative system for computing performance of multistage axial- 
flow compressors. It has been pointed out that the computation considers only 
stations between blade rows, in addition to inlet and exit stations. Full radial 
equilibrium of the flow is computed, including radial gradients of total enthalpy 
and entropy. Flow is assumed axisymmetric and the gas is considered ideal, 
with cp taken as a function of temperature. The computer-programmed per- 
formance calculation system will handle a maximum of 12 stages. 

In summary, the following information is given: 

• Specific heat at constant pressure, as a function of temperature 

• Molecular weight of the gas 

• Number of stages in the compressor to be studied 

• Design speed 

• Total mass flow rate 

• Number of streamlines to be considered in the computation 
(5, 7, 9, 11) 

• Fraction of the total flow passing between the hub and each successive 
streamline 

Furthermore, for the inlet and exit ducting and at the compressor entrance, 
the following items are given: 

• Inlet total pressure 

• Inlet total temperature 

• Axial location of all stations 

• Hub radius and blockage factor at each axial station 

• Tip radius and blockage factor at each axial station 

For each of the stages of the compressor to be studied, the following items 
are specified: 

• Axial location of all stations, annulus geometry and blockages at hub 
and tip for each station 

• Blade section type, either 6 5-Series or double-circular-arc, for rotor 
and stator 

• Reference profile loss parameter correlations at hub, mean / and tip 
(specified as loss data sets elected for rotor and stator) 

• Desired option(s) for computation of blade element flow turning 

• Radial distribution of solidity, maximum thickness, throat /spacing, 
inlet and exit metal angles, and flow angle at the assumed normal shock, 
for both rotor and stator 



The basic equations employed in this design system are displayed in the 
description of computations presented here. The equations are presented in 
cylindrical coordinates, assuming axisymmetry and neglecting body forces. 
The solution is necessarily an iterative one, as described in the Technical 
Discussion section of the text, and proceeds to the satisfaction of several 
error tolerances specified as input and described in Appendix D. 

CONTINUITY EQUATION 


w = 2 it 



r H 


e 


Rh 


V z RdR 


(A-l) 


From geometric input dimensions and blockage, aerodynamic hub and tip 
radii are determined at each axial station. From the definitions 


8 H 


8t 


V - R He 

V - r h 2 
R T 2 ~ r H 2 
r t 2 " r h 2 


hub blockage factor 


tip blockage factor 


(A-2) 


(A-3) 


where blockage factor is the decimal portion of geometric area not blocked, 
there results the expressions 


r / \ 9 i 1/2 


s h r & + ( 1_ 8 h) r t 

(A-4) 

r , v 1 1/2 


|^8 t R| + (j" 8 t) R h] 

(A-5) 


The annulus is subdivided into (j-1) streamtubes, where j is input as the 
number of streamlines considered in the design. The fraction of the total mass 
flow passing between the hub and each of the j streamlines is given as input and 

R. 

J 

P V z RdR ( A " 6 > 


DELM (j) = 2ir 


/ 
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ENERGY EQUATION 


> 


The energy equation and the radial equilibrium equation, a discussion of 
which follows, involve tangential velocities directly. These are in turn com- 
puted consistent with the blade element performance data selected by the pro- 
gram user from among the available options. The program user is referred to 
Chapters VI and VII of Reference 4 and to the detailed description of available 
options found in Appendix D, part A, of this report. 


“‘2 - H H -SM 0 * V «2 '"I V *l] 

Tj is determined by an iterative solution of the equation 

T t2 

»t 2 - H t[ =/c p (T)dT 


(A-7) 


(A-8) 


solving for the upper limit of the integral. 

The exit total pressure for the rotor at any streamline is determined 
using exit total temperature and efficiency. The adiabatic efficiency is then 
redetermined by calculating an isentropic temperature rise from an iterative 
solution of 



(A-9) 


and solving Equation (A-8) for H t 

2 , 


Efficiency is then found from 


V 


H+ 


r 2,i 


- H + 


H t 2 ' H t! 


(A-10) 
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RADIAL EQUILIBRIUM EQUATION 


t2 = 


T t R 

V - V Zj = 2 Soj/c p (T)dT - (V 2 - V,. 2 ) - 2 / 1 8 ' 

Tt j 3 


dR 


(A-l 1) 
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/ T 


dS 


2 g C J / T fR dR + 2 


R i 


Ri 


dR 


The entropy gradient term of the radial equilibrium equation is evaluated 
from the following expression 


2g c J 


R j 


R 


R, 


dR = 2g c J 


R, 


/• 


c p (T)^- - -yin 
,T. ^ 

L *i 


dR (A- 12) 


The streamline curvature term is evaluated from 


R 




A z (tDr® - 2 / v z (yr), 

i Ri 


dR - 2 


V R ' V Ri 


(A-13) 


where the subscript ^ designates a derivative taken along a streamline. 


EQUATION OF STATE 


&T 


(A-14) 


STATIC -TO-TOTAL AND RELATIVE-TO- ABSOLUTE CONVERSIONS 
From the definition of total enthalpy, the relationship 

rr2 




(A-15) 


is established. 
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Static temperature is evaluated iteratively from 


H+ 


i» 

- H = f c p (T)dT 


and static pressure is calculated from 


P = 


p t^ 




(T) dT 


Relative total enthalpies are determined from 


i 1 |2 o 

H t - H t = 2i-jL V - V J 


Relative total temperature is found iteratively from 


• / 


Tt 


Hi - H = J c (T)dT 
1 t P 

and relative total pressure is evaluated using the expression 

t! 


P t = P e L T 


J L f ‘c p (T> 

(R. J T 


dT 


LOSS CALCULATION 

The total pressure loss coefficient is defined for rotors as 

, _ P %i ~ Pi 2 


' Pt! - P 1 


(A-16) 


(A-17) 


(A-18) 


(A-19) 


(A-20) 


(A-21) 
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and for stators as 


p t 2 ' p t3 

«t = (A-22) 

p t 2 - p 2 

For off-reference blade operation, is considered broken down as follows: 

5 t 3 5 t, ref + <"t " ®t, ref > (A-23) 

where 

(5 1 - 5 t, ref ) = f < i “ iref > M', p ) (A-24) 

and 

w t, ref = w p, ref + w s, ref (A-25) 

The reference shock loss coefficient is calculated on the basis of the 
normal-shock-in-passage model presented in Reference 5 (See References in 
report) with flow at the computed inlet M' assumed to enter the passage at 
reference incidence. In this computation, the specific heat of the gas is 
evaluated at local temperature but is not treated rigorously as a variable. 

For each stage in a design calculation, the computer program receives as 
input a radial distribution of the relative flow angle at the assumed normal 
shock for both rotor and stator. Supersonic turning is computed as 

*ss = ~ 13 g (A-26) 


For stators, the absolute air angles are substituted. If the relative inlet 
Mach number is equal to or greater than 1. 0, the inlet Prandtl- Meyer angle 
is calculated from 


v i = VfH tan_1 VrTT ( M i 2-1 ) ' tan_1 V m 1 2 -i 


(A-27) 


The Prandtl-Meyer angle at the intersection of the assumed normal shock with 
the suction surface is calculated from 


ss 


= v, + 6 
1 S3 


(A-28) 


The Mach number at this location is then determined from an iterative solution 
of the expression 


ss 


VtH tan ’ 1 ■ ‘“' L V 


Mgg - 1 


(A-29) 
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The effective shock upstream Mach number, from which the pressure ratio 
across the shock is computed, is 


Me =T ( M i + «; B ) . 


(A-30) 


Using the normal shock relationship. Equation (99), Reference 7 (in report), 

I 1 /*-! 


t^ /normal 


,2 

(y + l) M e 

Vy-1 

y + l 

,2 


•2 , 

(r- l) M e +2 


2yM e - (y - l) 


(A-3 1) 


the shock total pressure ratio is determined. The shock loss coefficient is 
then evaluated as 


1 - V p u 


normal shock 


(A-32) 


1 - /Pi 


p t? 


where 


ti L 


y- i 


l + 


■Mi 


Vly - 1 


(A-33) 


Now, if the inlet relative Mach number is less than 1. 0, the effective upstream 
shock Mach number is calculated as 


. M 
Me — 


1 (‘ + M ' SS ) 


(A-34) 


where M gg ' is a function of ^ ss determined by iterative solution of the equation 

^ss = y X tan 1 V 7+""^ ( M ss " L ) ' tan_1 V M ss " 1 


(A-35) 
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If Mg is greater than 1.0, w s is evaluated using Equations (A-31), (A-33); 
and (A-32) as before. 


The reference profile loss coefficient is determined from blade element 

SpCOS/8'2 

loss data, input as profile loss parameter — ^ - correlated as a function 

of diffusion factor for hub, mean, and tip sections as described earlier and in 
Appendix D. The hub and tip loss data sets are associated with 10% span and 
90% span, respectively. Blade diffusion factor is calculated as 


d r = 1 . 0 


V2 ^ ^ - V 0 

Vi 2<rVi' 


(For rotors) 


(A-36) 


v 3 V 02 - V «3 

Do = 1.0 + (For stators) (A-3 7) 

V 2 2o-V 2 

where solidity, <r , is determined at the average radius associated with a 
stream surface in the blade passage. 

When the diffusion factor is established for the flow along a given stream- 
line in a given blade row, the average percent span for that streamline in the 
passage is used to establish a profile loss parameter value associated with the 
given streamline. The loss parameter is established using a parabolic curve 
fit along the blade span, using the mean section loss parameter value and the 
hub or tip section value, as appropriate. Both loss parameter values are 
taken at the diffusion factor level computed for the subject streamline. The 
parabolic fit takes the form 



The profile loss coefficient is then computed directly, using solidity and stream- 
plane relative exit flow angle at the subject streamline. 
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The off- reference increment in total pressure loss coefficient is 
correlated as a function of i-i re f, relative inlet Mach number and percent 
blade span as was discussed earlier. A parabolic curve fit identical to the 
one shown in Equation (A-38) is used in establishing the off-reference in- 
crement in total pressure loss for an arbitrarily located streamline. The 
values of i-iref and relative inlet Mach number associated with the streamline 
in question are used to establish values of the parameter o> t " <*> t f ref 

(i - i re f) 2 

at the hub and mean or tip and mean sections, as appropriate, and the 
described parabolic fit used to establish a value of the parameter at the 
streamline being considered. The value of (E»t - « t, ref) is then established 
at the subject streamline. 

The total loss coefficient is used to establish an actual exit total pressure 
using Equation (A-21) or Equation (A-22), as appropriate. This exit total 
pressure is used to re-establish adiabatic efficiency through the use of Equations 
(A-9), (A-8); and (A-10), as described earlier. 

CHOKE CHECK CALCULATION 


The choke check calculation is performed at all streamlines for all blade 

rows, after convergence is obtained for the entire performance calculation. 

The ratio of throat to spacing, O/s, is given as input data for each blade row in 

the manner described in Appendix D, Part A, and the check for a choke margin 

of 5% (O > 1. 05) is accomplished at each streamline for each blade row by 
h* 

computing 


ir = cos^ 


and 


b - « M i> 

and evaluating 


h* 


_o 
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h_ 

s 


o_ 

h*‘ 


(A-39) 


(A-40) 


(A-41) 
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INITIALIZE THt ITERATION COUNTERS 


LOLPY= 0 
00 l I * i * NX 
Co 1 J=1*NL INES 


lie 

OFF 02 1 19 
0FF021 20 
3FF02121 
OFF92L22 
OFFD2123 
OFFD212* 
OFF02125 
0FF02126 
OF F 92 1 27 
oFF^riee 
OFF 02 l 2 ^ 
OFF 02130 
OFF 02131 
CF F 02 1 32 
OFF 02 1 3 3 


B-4 



LFN 


Si. URGE STATEKtNT 


IFNI 5-1 


05 / 0 ?/ 6 a 


O 


X • 


: !■: 7 ,( l, J )= CXI It Ji 

: \i Y_C* • F A L SL • 
h i 7 s * F Al S r • 

LUf^f* LOCPY + 1 

IF I LOOPY .GT .230) CALL ERROMS) 

c *** HUD AXIAL VELHC IH-I NDEPENDENT TEkMS IN 

t, AXIAL-VtLICIlY tCUATIOL 

7~ J = .?,NTU6..S 

i, GET iT^E'V^LINL SLtJPE. 

7 .. (.ALL XDEPIV(R,RSL )PL) 
i u • 22 J It NL 1NES 

c *** OBTAIN THE FIRST DERIVATIVE OF AXIAL VELOCITY WITH RESPECT 

c rr AXIAL LENGTH, result is in cslupe 

2_‘D call XDcRIVICR. CSLUPE) 


L *** EttllUlNu IF CX ITERATION WITHIN CAXIAL. STREAMLINF 

L POSH ION IS PIXEL) 

t}J l,.„ 490 I = NOW, NX 


HtLP= i.O 
ILL* 0 
LH=CX( I» JR ) 

C.'.2* CM*CR 

,.3 5 Of iAC J - 1, NL INE S 

C GET AN ENIRf.’FY TFP>. 

CDfi,J)= THEKMJl T'JCItJ) )/DCP -A LOG ( PO ( I . J II 

C SOUAR E THE TANGENTIAL VELLCITY. 

CXF< Jl* CU( It J)**2 
utPVI I, J )= CXMI JI/RI 1* J) 

C CALCULATE THE ENTHALPY DUE TO THE VELOCITY. 

H- - 1C A( l,J )**2 -*CR I I , J > ** 2 +CU( I , J) **■? I /GJ 
T = TOI I,J) 

C GET TEL STATIC TfcMRFRAIURE. 

CALL ENT AL P 

L CALCULATE TFi RADIAL VELLCITY. 

, t'J CR ( 1 , J 1 = CXI It J)*RSLCPt( I, J) 

C INTEGRA l L 1 HF TANGENTIAL VELOCITY SQUARED DIVIDED tSY THE 

C i. AOlGS. THE KLSULT If. IN PINT. 

CALL IN I EC IOtPV.2) 

I EFMCI 1 )= 0.0 


A= THEKMlITUl I,JM) J 
AA= CR< 1, JM 1**2 
OU z.EO J= 1, NL INE S 

C INTEGRATE THE ENTROPY. 

IF IJ.Nt.l) IERMC(J)= TERMCIJ-II «-&R2*< TSTATI J) + T STAT I J-l 1 > * 


0FF02134 

0FF02135 

OF F 021 36 

OFF D_’ l 37 

OFF 027 36 

OF FOE 1 39 

OFFD2140 

OFF02141 

OFFD2142 

OFFU2TA3 

0FFD2144 

QFFD2145 

0FF02146 

OFFP2T47 

CFFD2140 

0FFD21A9 

OFFD2150 

OFF 021 51 

0FF02152 

OFF021 S3 

0FF0215A 

0FFP215S 

OFFD2156 

0FF021 57 

Of F02158 

OFF 021 59 

OFF 02160 

0FF021 61 

0FF02162 

OFF 021 63 

OFF 021. 6 A 

0FF02165 

OFF02166 

0FF02167 

OFF 021 68 

OFF 021 69 

OFF 02 1 70 

0FF02171 

OFF 02172 

GPF02173 

GFFD2174 

OFFD2I75 

0FFD2176 

OFF 02177 

OFFD2178 

0FF02I79 

OFF 02 180 

OFF021 81 

OFFD2I82 

0FF021 S3 

QFFD218A 

0FFD21 65 

OFF 02 186 

0FF021 87 

OFF 021 88 

0FF02I89 
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/' - 

ft*. - ‘EN SLURCI: STATEMENT - I FN < S » - 


> 

ICUC j fj » -CGI It J- * 1 ) 

Of FP M 30 

c 

C-»LCl’LAT c THE lNTHALPV TERM MINUS THE RADIAL VELOCITY Tc^M. 

OFF 02 l 91 


f : :-li|Jl= ( GJMTHiRMiCTUl I 9 JI> -A) 

JF F D ; 1 O / 

> 

*AA -OR ( I, J )**2 

Of F 02 1 v ■> 

A 

-ICXMU) -CXMJKII — ?• 0*H1 NT ( J I ) 

MFF0L1 °4 

_ 0 

• tHVII . J »= CXI It J ) *C SLURl < I , J) 

off nr* j 9 c 

o 

IMIS: IRATE THE VLLCtlTY TEP^. 

OFFOnVo 


CALL IN 1 G l bE^ V ti) 

OF F 02 . 1 ° T 

: , 5 

I L L- ILL ^ ? 

OFF 02 1 95 

' 0 

; * 4 00 J=l, NL INFS 

GFF02194 

OFFD22O0 

r ' 

*** FIND V* VALUES OH CXH 

OFFO??Ol 

OFF 022 OE 

r 

CD m B I N t TFr AXIAL VELLCI7Y TtRMS. 

CFFUI203 


! .1 Xl'= ny.MKJI «-2.0*R INTI J> -TFRMCIJI ♦ 1 ERMC ( JMlI/CM/./Ht LP 

P F F 0 2 i 0«* 


it (tl.xMoi ya j . 9 .jti ties 

uffu;?05 

j l 

CvNtwl J 1= CM 

OFFO2206 


LC TO *00 

OFF 02207 
OFF 02 208 

C 

**♦ TEST TE.t. VtLULlIY BA r 10 TERM FOB REASONABLE VALUE 

0EFD??09 

0FF02210 

r '* J 

IF (1LRM0.uk .E'JTTUM GU TC ^90 

OFF 022 : 1 


hi i = .mji. 

OFFD22I2 



PFFD22 1 ? 

c 

- SET TEWS TEEM T.J IIS LIMIT A 10 EFFECTIVELY INCREASE 

OFF 02 2 I ^ 

c 

mean LINt VELOCITY 

0FF02215 
OFFD22 lt> 


H f LP- 1,000 1* TC K MD/Bl) TTOM 

C1FF022 1 7 


IF ( ILL. IT. 5) GO TC 365 

OFF 02 216 


Ir> MC* POTS 

GFF022 19 


L 1 1 TP j'-5 

DFFD2220 

• J5 

IF { T trtMC .L T • Tt S T ) GO TC 390 

OFF u2 221 


hELP = HCLP* 1 • 1 

OFF 02 2 22 


HI1= .TRUE, 

0FF02223 


IF ( ILL , LT, 101 GC TL 365 

0FF02224 


r:K,MC= L1PIT 

0FF02225 


C'J TU 39 5 

0FF02226 

.0 

r sort < l.o+termd) 

OFF02227 

_ r 5 

CXNfcM J )= TEPMO+CM 

OFFD2228 

*■ J 

CUNT INUE 

0FFD2229 

• . 0 

C .jNT INUE 

0FF02230 



OFF D22 3 1 

c 

*** UNSUCCESSFUL CONVERGENCE ON CX 

0FFD2? 32 

OF FO 22 32 


IF <YLS) C-G Vi S5J 

0 C F 02 2 34 


•v, '‘Hi) J - 1, NL INt S * 

0FF0223S 

1 

*** CUHPWc AaIAL VcLbCITY FROM CURVATURE PCUATION TO mXIAL 

OFF 022 36 

-L. 

V i-LuCi TY FROM 1 HE CONTINUITY EUUATUN 

OFF 022 3 T 
UFF02238 

*»• 0 

i F (AdSUCXl I«J) -CXNEWI JU/CXI It JM.GT.TOLCX) GL TO 445 

OFF 022 39 


V. TU 45 L 

OFF 02240 

^ b 

Y iS= .T-iuF. 

OFF D 2 

s 5 ) 

Lb 'O0 J - it NL INt $ 

0FF02242 

_ 4 . J 

lXU.J1 = (CXII.J) +CXNEW (J)1*0«5 

0FF02243 


CALL STREAM 

OF F 02 244 


A- CHEANP/CM/ILAMP +1.0) 

OFFD2245 


B-6 



c \\ 


lFN 


StiUKCu S TAT L Mf NT 


IFM S) 


OS/ 0?/o« 


\ 



■ 4cU J= i f iJL 1 lil S 

0FFD2246 


V4l»JI= f ‘UTMI,JI*0A*P + CXNEW(J)MA 

OFF.V2X7 


•„ ' ( 1 ? J ) * b: TAUf Jl 

QFFU224S 

‘ U 

i. jt 1 I .'HE 

OFF 022 49 

' .0 


OF Fi>??50 
0FF02251 
0FFD2? 5? 


1 ■- (VU(IQPY f ;f;).ty,T) CALI PKFIf? 

0FF0225- 

c 

■ ~ G t T T F c L «. j i. 1> • 

3FFCP;>5<» 


. LL I G S3 

0FF02255 

c 

Hi StT TH;j WC kK • 

0FFDP256 


~'\L L rMF 11 1 

CFF02257 

JL 

CALL U*F- <A) 

OFF 02? 58 

V, 

*** CFtCi\ L.VCUUlA IIi'F 

UFF 022 ST 


*. ( A.LT. T1 ; 4 3K'»LCU 

OFFOr^O 


1 f .Stop ) CALL HALT 

QFF02261 

; -• - 

O-M INUL 

0FF02262 


lh l Hin Gu T ) 10 

0FF022S3 


i; ( Y E i ) ct, rr ,o 

DFF022S* 

1 0 j ) 


0FF022<S5 


1 1 UKN 

0FF0226S 


t * * > 

0FFD2?6? 
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CHUKF. 


- tPM SOURCE STATEMENT - IFN(S) - 


JS/O iib H 


5CAKUUT IKE CHUKc 

*** THIS SUdRUUT iNt CHECKS FOR CHOKED FLOW CONDITIONS 

CJMMPN / CET {1/ FOTOR(2n 
LUC- 1 CAL C I KCLE » SIXTY5 


K i.AL 

IREF. 

JOULE, 

MACH , 

X 'UTAL. 

MIN. 

M I NR, 

MHUT , 

X ( U T * 




I » T tCE K RLADt. 


COUNT 


ICtlCAL 

CFF. 

OK, 

RUFLC, 

X *' t S T Ai< . 

TUNE 




OFFO3011 
OFF 0 30 12 
OFF D r'O 1 3 
OFF 0 30 14 
(jFFO *015 
OFF 4 ) “ 0 1 h 
OF FD 301 7 
OFF 030 1 3 
CFFO 301'-# 
OFF:) 30 29 
OFF D 30 2 I 
OFF 030.32 

INTEGER P.JLE ‘'FF03023 

RCAL K DEL . K0EL2 UFO3024 

COMMON /VECTOR/ r ;fF0V)?5 

• At RHA( 2V, 11 1, ATA'K 23,11) ,BETA(2‘», 1 II ,BH(32I , GLADE ( 25 ) , 3T (32) , C I RCL OFF :>3026 
. < _5 ) , CO ( 32*1] 1 f CPCU( b) ,CR( 3 2, li ) .CSLUPE (32,111 ,CU (32 , 11 I , CX ( 32, 1 1 OFF 0^02 7 
. ) ,CXM( 11 ),CXNEW( 11 l,OA( 1CI ,DELM(11I,DEPV(32,11) ,DF !?0) ,OFLOW( 3 2) ,F OFF 0 3023 
-LJM 32) , FUR MU5 ) .FOUND ( 2C. i. 10) , I REF ( 25, 11 1 , ITYPt ( 251 , ME TA L( -M ,MfcT OFF 0 30 20 

• HOT ( 2:> ) . M IN ( 3*23 ),M1 NR (8.25) .MOUTI 8,25) ,MOUTR| fl ,25 ) ,NIN< 25 I , NKAOI 20FF03030 

) ,NS( 25 ) .NSS( 2 3 J.NTC ( 25),NTH( 2 5) .NXI T( 251 ,UBAR .11) , t)FFiJ( 25 ) . PuOFF 0 3031 

• ( \i , 11 1 ,R (3 It 1 1) ,R AOU3.25) > R ADR (3.25) .KC UK VC (32. 11 ) ,»H ( 3 21 ,k! MT ( IiO r FO5032 
. ) ,PPM( i) .RSI 32 J.RSLGPF I 32, 11 ) . W JLE (25 ) . SHA^E(25 ) ,S IXTY5 ( 25 ) oOl 8 , 2 OFF 030 3 3 

• 5) ,$GR <8,25 ),SS( 6, 25),SSR( 8.25) , TERMC (11) . THC8 .25) ,THC (8 .25) . THC R( OFF 030 34 

• a,25 ) , THKlts, 25), II TLM '361 ,T0(32, 11 1 , TSTATC 11 1 ,X(32 1 0FFD30 35 

COMMCN /SCALAR/ 0FFD30*6 

.A. AA, A 10 AO, A 20 2 AO, A 30 3 AO* A4U4A0, A5O5AC,ANG.0 *B6 .CC .CENT.CM.CMF AN. C OFF 030 3 7 

• MEANP. CM2.CURFC.CCIUNT.CP.CPI 2. CPI 3 ,CP I 4 , CP 1 5 ,CP l*> , CP02 ,C P03 . CP04 , CUFF030 3B 
. PU5.CAMP.CCP, DELFLU.DFACT.EMACH.EPISOK.FACTM.G.GAMMcP.GASK.GJ. SR2, OFF 030 39 
•H.HlGH.HIPRcS. 1. IG , IGO , ICUTT R, l PA S S, U . J J . JM, JMI . JOULE. K. KOEL. KK, L. OFF 03040 

• LAST.LCl . LEV lL.LST.LSTAGE.M.MACH.MAXPT.MINPT .N.N0LADE, NO AT A, NL I N ES OFF 0 30M 

• , NSC TS.N SPEC 3 f NT USES, NX . NXI .OFF* OK. PH l . PLOW* Q , R A , R ADI AN, RQFLO, RFF. OFF 03042 
# h LSTAP.HHACH, S.SCL ID, SPEED. STOP. T. TER MO. THICK, TIME .TOLAT ,T OLCX , T0L0FFD2043 


•MIN.TULR, njNE.V. VMI, YES 

l!K=. FALSE • 

00 50 1 = 5 ,L ST Aof 
OJ 50 J* i ,NL INES 

**♦ CALCULATE THROAT 

CXM ( J ) - SLINE(R( I- 1, J),THR( 1,1-4), TH( 1,1-4) .NTH <1-41 ) 

AA= CX( I- 1, J )**2 +CR(I-l,JI**2 +CU( I- 1 , Jl **2 

h= -AA/GJ 
t= T0( I- i,J ) 

CALL ENT ALP 

IF ( RO FilR(l-4).GT#0#0| AA* AA + R PM < N ) *R ( I - 1 ♦ J ) * ( 

X RPM(N)*R< I-l.J) - 2. 0*CU(_I- 1 . J ) ) 

cALL GAM 

AA= SURT ( AA/(GR2*GAMMEK*TSTAT(J) ) ) 

AA* ((GAMMER + 1 . 0 ) *0. 5 ) ♦* < 0* 5* ( GAMME R +1.0 )/( 1*0 -GAMMER I ) 
X *(1.0 *C • 5* ( GAMMER -].C)*AA**2)**(0.5*( GAMMER +1.0) 

X /(GAMMER -1.0) ) /AA 

♦** CALCULATE INLET METAL ANGLE 


OFF 03044 
OFF D3045 
OFF 03046 
OFF D 3047 
0FFD304B 
QFFD30<*9 
OFF030 50 
0FF03051 
OFFD3052 
0FF03053 
OFFU30 54 
C1FF03055 
0FF03056 
OFF D?057 
OFF D3058 
UFFD30 59 
DFFD3060 
UFF03061 
UFF03062 
OF FO 30 63 
0FF03064 
0FFQ306S 
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C H* J ;< L 


r FN 


SUIJRC c STATEMENT 


IFMS) 


05/0 /55 


i* r 1AU 1>- a lNtl R< I- If J) fKlNFM *1-41 tKINC 1* 1-4) »NI MI-4) ) 
l» (KUTU*«I-4ll J5*5i),3G 

- r > Gi^T 

Go I I.J)= OJS(ALPHA(i-liJM/CXH(J) 

IF < AA.Le.COI IfJ )> GU TD 100 

U-’MfJI* COS(^ErAtm *IREF< 1-4, J) )/CXM< J> 

i F I AA.LE.COI I, J H GO TO 100 

GO TO 2b 

>0 GUI I« J I* QJ S l i>L : l A( I- 1 » J ) ) /C KM( J ) 
if (AA.Lfr.COI it J )l GO TO 100 
( u I 1 9 J M UJSCMCTALU) +!KtF( I-4t J ) )/CXMC J) 

IF ( A4.L . .COUf J )) GU 10 ) 00 

•> U CCfiTIMJE 
GK = • TIOJ t . 

)Jo FMU'-N 
:.Nt» 


0FFD3O6S 
0FF03067 
OFF 030 68 
OFF!) 305° 
0FFP3070 
OFF f)3‘) 71 
0FFU3072 
0FF030 7^ 
OFF 0?0 7^ 
OFF 00075 
0FF0307S 
GFFD3077 
OFF 03078 
CFF03079 
OFFOSORO 
r?FFp->')81 
! JF F U 3082 
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03/07 /6d 

C3R2. - EFN SOURCE S T ATF HENT - IFNISI - 


F.i,*oTION CG3EC2CANG) 0FF01615 

OF FT) 1616 

(. *** THICKNESS CGRREC T ION FOR 2ERO-CAMBER REFERENCE ANGLE FCR OFFP1S17 

C 6 i-t A LOJ-SEKlES A I RFC IL S AS A FUNCTION OF THE BLADE OFF >1611 

L .1AXi.1UH-THCK.NE5S *A1 IC. REFERENCE FIGURF6 OFF 016 IR 

OFFTUSZ'J 

CIMENS1GN C JEFI t ) OF F 1)1621 

oAIA C6EF /•) . 1 3 57869E-1, 16.86372, 0FF01622 

a -'3.20603, -1081,117, 9359.9/1, -221B4.5 / GFF01623 

A=A\C OFFJ1629 

C- r.£C,2*C0EFU >♦( CUEFI 2 IMCOEFI 3 !♦ ICGEF ( ICOE F 16 ) +COEF I 6) *A>*A) 0FFD16 25 
X * A I *A I * A OFF .01 626 

RETURN GFF01627 

. u, OFfr>16?() 


B-10 



o V02/6R 


C'Ta, 

- r FN 

Sl'UflCc STATEMt \T 

- IFMS) - 


dii CK ja r a 




UFF Dul 54 

L.rolCAL CIRCLE, 

S f AT Y 5 



0FF00155 

r 5 F AC 

ULF, 

JOULE * 

KACH , 

CFF001S6 

A L r AL . 

MIN* 

M I NR, 

pour , 

0FF0Ji:>7 

. -It UT8 




r jFFO0ls% 

i NT f. GtR RL4 Jt» 


CuUNT 


OFF 001 59 

L-'GICAL 

OF F • 

OK, 

FDFLC, 

OFF 03 1 60 

r j T A .' * 

TLNfc 



OFF00161 

i iN 1 t 0 l v f' oL! 




OFF 00X6? 



lA I A 

LATA Gi GJ 

CAT A DF . 

K • 7 , • 75 , m d 9 m L 5 , • 9f*Slfl»0/ 

CAT A aALIA^ /57.2S578/ 
Chi) 


— w JJULt: /IM*5.4tt 3007C«47, 778.12 

/O • 0 1 • 1 » • 1 5 « • 2 1 • 2 5 » • 3 , • 2 5 , • 4 , • 4 5 ■ • 5 t « 


• 6 5 t 


OFF 001 8 2 
OFF DO 1 84 
OFFD0185 
0FFD0186 
0FFD0187 
OFF 001 83 
OFFOOia^ 


B-ll 



- tf-N SOU«<Cr STATEMENT - I^MSI 





I-* ,*:L \ 1 •Ji'i lib ROL it i >t ACh r H t GH ) 

u t Di;< 6 VAUIAUUN UF AVUUGt <0 TUH DEVIATION ANGL C MtMJS 

L r, h-S*»ctC TwO DiM.NSIONAL-CASCADt-HULt DEVIATION ANGLE AT 
CUMF AbS j IK <lFERLMCE I NC I J ENCE ANGLE rfITrl RELATIVE INLcT KAoN 
.iU.-ItJET FuK OOJtfLE-CIKCULAK-AKC 6LA06S. 

Fr;=Jr' - 10 Z* NASA jP- 'it 
C [ht-NS (L * rt I Abl :? ) fRJi'Nl A3 ( 4 ) f ^OA TAE (6» 5) 

/scalak/ c*ten* radian, qc*cc 21 i 

:jA • A H143 / . 1, . :» .5f . 7, . S/, RENTAS/. ,U*)/,Cf)ATA3/ 

x ’* ■** 1 • i f 

_• 1 1 * » l 5 1 • ^ ’ 4 f i • 1 

^ * r M AC H 
» - h I (>H 

k - 1 1 ; t < iCm+A ihj /2 

i\ - NAX MM IN0(K,4 ) v i ) 

v.5;s SL IN- ( A t kM\T ABtCCA TABUt <1 »6> 

Vi*. 4-* SL IN (A,rMNi A3,CCATA3( I,N*1> «bl 
j u l R * J L 1 s ( AU j 1 ♦ t ANS E-rtNo 11/ (H TAri ( K*1 1 -K TAd t Kl I * t b-H I A3 ( Kill /R ADI AN 
-cl (JRN 

’-sn 


Dr FO L 7 47 
OF* 5174 J 
n F c 0 1 7 44 
OF F i} 1 745 

OFFOl 
OFF 0 1747 
OFFDL749 
t?FFD!7 4^ 
( f F0I7SJ 
OF F 01 7 51 
OF F 0 1 7 57 
OFFDl 7 5 i 
OFF 0 1 7 54 
OFF Oi 755 
0FF0L75S 
OFFD1757 
OFFO 1753 
0FF01759 
QFFUI740 
OF F 0 1 7 6 1 
OFFOl 747 


\ 


B -12 



OZ'iiK 


hFN 


SOURCE STATEMENT 


IFN(5) 


0 r >/02/6 l l 


\ 


FUinoUON CCRUl 2( KMACH, HIGH J 

.. CED’JCED VARIATION OF AVtRAGE KOTOR DEVIATION ANGLE MINUS 

lu«-SPUC TRU-L)IMti\3lLNAL-CA$CADE-RULE deviation angle at 
CCWPR : SSLR REFERENCE INCIDENCE ANGLE NlTH RELATIVE INLET MACH 
C ibMrtEK FOR NACA t 5- ( A 10 )- St R I E :> 3 LADE* 

C FIGOk" *02 A NASA SP-36 

COMMON /SCALAR/ Lj(rii), RADIAN, QCQ(21I 
u = , 1 AC H 
i =H 1 GH 

IF ( b *LF • 0* 5 ) GO TO 20 
IF t 9.LT *0. 7 ) SC T' 10 
X * = 

Y ^-.1 

Y 2 - l *0 

go ro :*» 

_ - 1 J 

Xi- • 7 

Y . = - • 0 

Y ' = 

: li DtRJL2«( Y HIY2-YiI/(X2-Xil*(B-Xin /RADIAN 

\*(J 1 L 1 it) 

JO UERUL2* -.008727 

<0 return 
.hi: 


DFFD17I6 
i IFF D 1717 
OFF 017 18 
OFF f)l 7 
OF FD 1720 
OFF 01721 
OFFO 1722 
DFFD1 723 
0FFU172'* 
0FF01725 
QFF0172f> 
3FFD1 727 
HFF017 28 
OFFO 1 7 9 
0FFQ1730 
OFFDL731 
0FFD1 732 
0FFD1733 
0FF01734 
0FFD1735 
OFF DI 736 
OFFD1737 
OFF 017 3fl 
0FFD1 739 
0FFD1740 
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lif.v 1 

« 

- r FN 

SLU^Cfc 5T AT tMhtxi T 

- IFMS) - 

f jm: Mi ’j 

0 tv 1 

( lFK)C ) 




.T IT/ 

aUTbtU;.S) 



i. : Li CAL 

IK CL 6 

, SIXTY5 



i: 3l 


IKLF, 

JOULE t 

MACH, 

X -i.-TAL, 

a ^i/UTR 


H£N, 

iINK, 

MOU T , 

\ '1 1 L ‘ jr_ *7 

L '» JE, 


Count 


LUGILaL 


OO 

OK, 

R.OFLf;, 

X a . STAK, 


rONL 



UT 

PJJL : 





o j/y./-} i 


CFFH0819 

OFF 003 21 
•jffoo 0 '2 

GFFO.H, 3 
'JFFOOF 24 
OFF 403 ?5 
JFFi)C -3 2 & 
OFF 009 ?T 
OFF ‘ 1.1 3 /> 3 

OFF on.) ?•# 
0FFU0330 


•V -AL K DEL ,K DEL i r 

o;.i*MUN / V C [^/ .JFFO0330 

. ALPHA! ' , 11 ), 4 TARU 5 , li)*BLIA(29,ll>,BMn2l .BLADE! '51. Bf I 32 ) ,C l KU-OFF 708 ’ 1 

►.( 2 ; )»(..■ ( .’.* ll)*CPC(tl 6I,CP I 32, ill ASLOPE ! 32 »ll I *CU< 32,11 l*CX( 32, I iOFFDO’ 

. ),Ca -M 1 ' ) .CXNEn! li t ,0A< LO) ,l)tLM( 11 ) , U EP V( 32 , 1 l I »UF ( 20) , OFl On ( 3 2 ) ,F OFF . (08 3 3 
.L.IWt 3. ) , FuR M( 2 3 ) *FOUHO! 20. i» 1 0) , I REF I 25 , 1 i I » I T YPE ( 25 ) , ME TALI 2) » METQFF008 34 
.h:.0( i'j ) ,MIN I 3, 20 ), HlNKt 8,2 3) ,HOUT I 8,2 5 J , HMliTJU d ,25 ) *NI N! 25 I , HRAOI 23FFD08 35 
.}) ,MSt ' 5 ) »N S $ ( 2 5 ),NTC< , £1 ,NTH(25) ,NX I T ( 25 ) , 3BAR <23 ,1 1) .OF^Ot 25 ) , POOFF 008 '3 
.( U), M 32. i II ,RAUi 8,2 5) ,RA08! 8,25) , RCUR VE <32 , 1 1 ) ,RH( 3 2) ,Pl NT! 110FF008 3 7 

.I.KP^t IJ.RSI 2 2),RSLUPEI32, 11 1 .RULE <25 ) , SHAPE ! 25 > , S IXTY5 1 2 3 > ,SG! 8 , 2UFFO08 38 

.51 , SOP (3.2>l ,SS( e, 251 ,SSM 3,251 , TERMCtl 1 1 , TH<8 ,25) ,THCC3 ,25) , IHCRt OFF 'JOB 30 
,3.231. THRU, 25), U TLtt jM, 10(32,11), TSTATt 111 ,X(32) OFF 008 >0 

COMMON / SCALAR/ OFF >0841 

. AA, AL'J AC, A2U2A0, A30 3A0, A 4J4A0, A 5C5AC, AMO, 3, Bd ,CC .CENT , CH,CHEAN,COFFOOb4 2 
, Mr AN P, CM .: » C UR EC » CO UN) . CP, CPI 2* CP I 3 *CP I > » CP ! j » C P 1 4 » CP 02 » C P03 , C P 04 » C OF F 008 '♦ 3 
.P(.o',DA3t>,CC P, DEL ELL , OF AC I, EM AC H, CP I SON , FAC I’M ,0 ,3AMMc R,GA SK ,C»J, UR 2 . OFF, 338 44 
•H.HIGH.HIPRCS, I, IG,IGO,IOUTTR,IPASS, J.JJ, JM, JM1 .JOULE, K, KOtL.KK, L, 0FFO0843 

.LASr,LCl,LcVcL,LST,LSTAuc,.8,3ALH,MAXPT,MIU?T,N,NBLA0E,N0ATA,NLII’)£j')FF')03 45 

. « NSETS«N5 PE tl) , NT UcAES, NX , NX 1 , OFF , OK,Pr( 1,PLOR,0,RA,RAOIAN, RDFLO, REF, OFF 00 847 
• tt L ST AR , R M AC H , S » SCL I D , SPfc -0 .STOP , T , TER *0, TH ICK.T IP; ,T OLAT ,T OLCX, T OL OFF 00« 43 
.MIN, tOLR. TUNE, V, VM I, YFs 0FF008-.0 

OFF 00 8 50 

DIMENSION UP ( 2 ) , TAB! 17,2,3) 0FFD0851 

data Tab / OFF 003 5 2 

X .247, .28, .211, .145, .077, .0 ON, -0.032, -0.034, 0.0, .052, OFFOU853 


: .247, .'8. .211. .145, .077, .000, -0.032, -0.034, 0.0, .052, 
(•If .JL41,«17(3, .206, • Z 2 3 f .238, • 4 ? , 

( - • ,• j , - «7» — • S , — • 5 , • 4 , 3f — • 2 » “• i i 0 • » *1 i ♦ t • 3 , • 

( • 6 1 .7, • , 

{ • j47, • 2 6, .211, .145, • C 77 » •COS, -0.03?, -0.034 , 0.0, .0:>2f 

i .1, .*41t. 17«, .206, .225, .23H, .24% 

(. — .3 , — .7, — .6, - • b * — • 4 , -.3, — .2, ~*i t 0.* .1* .2* .3, .4, 

( ••£.', .7, .a, 

i *.,<►/• .<-8, • 2ilt .14 5, • C 77, .000, — C.032, —0.034, 0.0, .052, 

t .1, .141,. 17a, .20&, .225, .238, .242, 

( -.8, -.7, *.6, -.5, - •♦» -.3, -.2, -.1, 0., .1, .2* .3, .*• 

X m*J t .7, » K / 

L~ - 

IF < FIOH.CT .0.:) L= 3 

UP | j | s SLIM6<UFFCU, T AB ( 1, 2, 2) * TAB(l»l«2lt 17 I 
UPU) = SL Mfc(OF!-DD, TAB(1,2«L), TA8(i,i,L), 17 ) 
oevi* ( -0.5 )«C0P(2I -UPI 1)1*2.51 ♦ UP (1) 

,< lTUkM 


-0.034, O.Ut .0^2, 
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0 c V f j 


t F N 


STAT-HhNT 


I FN I S > 


j ;/U. /oti 


\ 


fmMTI 1'* Lc V I .<Af'V,Lt«Sl'L 10) 

r Z;V -CAMr. 1 CEVIaTUN *\GLE AT HE F K*T fwC F * 1 N [ K UM-LU:> 5 

C ihCldCiUL ANGL; UttiUCLL! Ffi?* L CJW- SPE t ■'*— C A SC ADF DATA r\:.< 

IC-P^CtM-ThlC* NACA n^-IAIOj-S^US JLMJt S* 

C FI a / ■ _ l *.i 1 NA 5 A 3 i - t 

c I ► .-ns lu . * tS > ,u( f 6wi: ity( 

l A 1 m /_ w •’ L / <j • 1 lo 3 A 3 i L - . 9 0* l 0*2l.‘43b-“ ) t 

- ~t*2s j 7 . )» — ^*-0*2l87 3264 c — 6f i) • l . G 5 J 74 1 1. -8 t 

> <^*2:* .i G • a 1 3 • J £ 1 1 1. - 1 1 0 * 38 3* 968 3L -h » 0*i2iJj31 V - r »» 

> -G* 21 )** **2 i 32- 7? 0**+9 L_‘ jul E- S» 

r - u • 2 ** 2; - 2 _ 3 J - 2 1 i .^ut'c* ^ » 0 • V3 9 '*2 6141-3* * 0 • * 2 ^ '» 6*> 1 i t - 5 « 

a - t * I 3 i > I > 3 - - 7 » »J « 7i 7 G 4? E 4 ! : —9 ? 

^ “W. 0# 7' 0 'Hh" ic“tt 0# 62 8 6 S 44 ^ f - ^ f — *.)• ] A <J-r HO ->‘iF — 4 $ 

x i 3? 7 59 e_ 2-6* -C* 1 4 2 7 f. 4 3 2 2- 

X I • 1 2 3 *0 5 86 1 — i.* u • *♦(, 4C l i4 ot — 2 * U^il^Cib + ^t— 2* — 0* .>4 2 > 89 i? i L — <*■ t 

/ A.56aii20:5"Ot -0*2bt45l €58- it 

/ u. 14274 _2 l- 2« a.1133045^-1# vj* 3 77<^7i? I S -5 9 -0. 148 j> 9h<)< f.-5 * 

/ -U • 7 7 j 4 *«. 5i i Z - 8 t 0* **48 ctt r4 ^£ — E* 

> ’J. 2152415.2-2* 0#c^C^2C55s- 2# 0, CO *3776 1 E-3 * -0*206.7/ hi-4, 

X u. jfcjSjOOjt-Tf -0*i3753*262-b* 

> G.49S ♦JlS2n-2» 0*14625::^9E-1 » C. >5 402 8 74c-i t 0 . 7 2802 27 7t * 

X G*i335555iL-7* 0 . 6 59 1 7 C 922-« , 

X J • 540 645 2E - jl* 0*206i42j:jL-l • -0. 2 62 26 7 o 36-3 , 0 *20884 1*? 2 £-4# 

/ -C.2783 lOlc-t , C* -1883S',t-o/ t SGDITY / 0*4* 0*3* 0.8, 

X _*Ut 1*2 9 1*4* i*6*l*8**;*o / 

A-= ANGLt*-7.^S .7 6 
j - S 0 L I J 
I = i 

IF (S.L1 • SO 0 1 T Y ( i)> GO 1C 5 
1 l^I+I 

IF I S.ut.SJ JITYC D.AND.I .LT.9) GO TO 1 
3 of; l 0 j=i,: 

t>(J)= 2tKL(l,n +(2FKC(i,II ♦l£ERCl3»n +(Z2KU(4*I) +(/>80(j f I) 

X *2tPn< 6, 1 1 *A) vA J*A)*A M'A 

.0 I^I-i 

U£V I 6= 3.0M S-^l?OiTY( I+A |)*< J< 1 |-L>(zn + 0(21 

K 2 T URN 

^JL 


nj m)01 47 

If FuGl 

,» r.i.ii 
f ,> *i r ijo 
• ii-F'm)< <)] 

if r io/ >2 
Of £i.)U2C ; 

IFFO020A 

f*f- or . 206 

OFF JO? 06 
OFF 00 2 0 7 
OFF 00208 
OFF DO ?. 09 
Of F 00? j O 
Of F JO 2 I ) 
OF F002 1 c 
OFF 002 13 
0FFU02 14 
OF F 002 1 6 
OFF OO 2 16 
OFF 00 7 1 7 
OFF 002 18 
OFF 00? 1 9 
0FFD02 ?1 
OFF 0022 1 
OFF 00? 2 2 
OFFDOP23 
OFFOO? 24 
GFF0O225 
QFFD02 ?o 
OFF D02 27 
O p F 002 28 
OFFOO? 29 
OFF 0(J2 30 
OFF DO? 31 
OFFDO? 32 
0FFD0233 
OF F DO? 34 
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<J 3/02/8* 

- L f N SOURCE STATEMENT - IFN(S) - 


SUtfROUT IN ’ ENT ALP 



OFF 005 11 






OFF 00 5 i 2 

*** CALCULATES 

Irit TEMPf RATURS 

a I SE 

CO^RE S PONOI No TO AN 

orr ^0513 

fc:4T F/L P Y ChANGr 



OF F >0 5 1. b 






OFF DC 5 15 

LOGICAL 

CIRCLE* 

SIXTY5 



OFF 005 :t> 

f* k»L 


Ik EF t 

JOULE 

, MACH , 

OFF 005 17 

X ^ t r AL t 


MIN, 

iHINR, 

HOUT , 

OF FOOT ’ 

A ^UUT« 





OFF 005 19 

INTllGlR 

C^LADE, 


COUNT 


OF F 005 ?0 

LJt.. IC\L 


OFF* 

OK, 

POFLUt 

0FF0O5?! 

X KLSTA;<f 


IGNF 



OFF TOK ^ ^ 

iNTEGtR 

«UU: 




UrFOOb^O 

^ L A L KDtL.K OEl 2 




0-’F005^V 

COMMON 

/VECT CM/ 




GFF005 *.5 


• ALPHA! 29, 11 1 » ATARI 25, 1 1) »CET4<23, 1 1) ,BH( 32) ,(3LAOE( 251 , 3T (3? ) ,C I RCL OFFOOS2f. 
.E(2 j),CU( 32. 11),CPC0( t),CR(32,ll) ,C SLOPE C 32.11 » »C'J (32 , i 1 ) ,CX < 32 , liOFFl)05?7 
. ),CXM< 11 ),CXNE*C 1U»UA( iOl ,OELM( 111, OEPVC32.il 1 .OF (201 .UFLOWC 32) .F0FF005 ?0 
.LL’W(32),FCRM( 251. FOUND (20, 3. 10) , I KEF ( 23 , 1 1 ) , I TYPE ( 251 , Me TA LC 2 1 , METOFFOG5 29 
,HiJ0( 23), MIN (8, 25). MINK (6. 25) ,M3UT ( 8. 2 5 ) ,M0UTR( 8 ,25 1 »NI N( 25 ) , NRAQ( 2 OFF 00 5 30 

• 5) ,NS( 25) ,NSS( 25).NTC( 25),NTH(25) .NXI T(?5) ,0BAfl(25 ,11) ,OFF0( ?5) , PU0FFU05 31 

.( 32.11 ).f<( 32, 11) .P AD( 6.23) ,K ADR I 8,25) , HOUR VE (32 , 1 1 ) ,RH( 3 2) »K (NT ( 1 1 OFF 005 32 
. I ,PPM( 1 ) ,RS( )2 l,RSLUPE( 32.11 >, RULE (25) , SHAPE! 25 ) ,S IXTY5 ( 25 ) ,S0( d .2UFF005 33 
..>) , SUR ( 5 ,25 ) , SSI 8, 25 I , SSK( 8, 25) . TERMCl 11 ) , TH(8,25) ,THC (3 ,25 I , THCRI 0FF00554 
. 8, 25 ) , 1 HK ( 9 » 25 ) » TI TCE ( 36 1 » 10 ( 32.1 1 » » TSTATC 11 ) ,X(32 ) 0FFD05 35 

COMMON /SCALAR/ 0FFDO5 36 

.A.AA.AIOAO, A202A0, A30i AO, A409A0, A505A0 , ANG ,B,BB ,CC .CENT , CM.CME AN, C0FF005 37 
. ME ANP, CM 2. COR EC, COUNT ,CP,CP1 2, CP I 3,CP 1 9.CPI 5 ,CPI6 ,CP02 ,C P0 3, CP04.COFF005 38 

• PG5«DAMF»CCP« DEL Ft 0, OF AC T ,EMACH,EPISON,FAC TM,G» GAMMER »GASK,GJ» GR2, OFF 005 39 
. H, HIGH, H1PR ES, I , IG, IGC, IGUTTR, 1 PASS, J , JJ , JM, JMl , JOULE, X, KOEL ,KK, L, OFF005*tO 
.L AST, LC 1, LEVcL.LST.LSTAGC.M, MACH, MAXP T.HINPT ,N,NBLAUE,ND AT A, NLI NES 0FFD0591 
. ,NStTS,NSPEEU,NTUBE3,NX,NXl,0FF,0K,PHI , PLOM.U, RA.RAOI AN, RDFLU, REF, OFF 00542 
. RcSTAR.RM AC H.S.SGL IU»SPEED»STQP,T»TEPMP, THICK, TIME »TOL AT ,TOLCX ,TOLOFF00543 


.MIN, TOLR.TONF,V,VNI,YES 0FF00544 

huT- THERMIC T ) 0FFD0545 

TSTAT(J)* H/CP *T 0FF00546 

00 10 IT EP= 1,25 0FFD0547 

HIT* THERMIC TSTAT(J)) OFF00548 

E=F'-HIT +KJT 0FF00549 

TSTAT(J)* t/CP TS TAT ( J ) 0FF00550 

10 IF (ABSI E1.LE.T0LMIN) GO TO 20 0FF00551 

CALL ERROR (25) 0FF00552 

20 RETURN 0FFD0553 

L ,Mt, 0FFP0554 
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* 


lR 


;FN SOURCC S TATEMf WT 


I l-fs. f S > 


G 6/02/68 


SUirrUlHNE L^RORUAX) 
c-.GICAL CIRCLE 
LAL 

X ^tTAL* 

X fLUTR 
i\M 6tR RLAOt, 
laical 
X «*' L 5 T A r • 

INTEGER KJ L L 
rUAL KOEL *KDLL2 

.ALPHA! 2'.'. 11 )« ATAMo, ll)»BfcTA< 2->» 111 ,8H132) (BLADE! 2^1 *BT 1 •* 


IRr>* 

JOULE* 

M*CH, 

MIN* 

M ( NR* 

MOUT , 


COUNT 


uFF, 

3K, 

RDf-L r 

Iu\t 




JFFOOJ 33 
m-hfKHi'K 
jFF003 3f. 
OFF DO 3 36 
UFFD0 3;.7 
OFHjO 1 38 
OFFOOi'-v 
flFF.K>34D 
0FFl>0.341 
DFF003A2 


OFF 00 AM 

» (MKLLOFfnimA 

.£<*•.), O' I “ ! I 1 KCPCOi *) IcK < 11 ) ^CSLUPt ! A 2 1 11) ^CU 132 til )» LX ! * 1*, L l 

. I.CXM! X. I ,C<NE Ml 11), OA! 101 (DUmn.OrPVI 3', 11) tPF <201 *° ‘.’"i ’ ' r n- r < It 

lUFi! 32 I • FCK *1! \.-j ) (FlUOOI 2C» J» 10 ) • 1 HLf ! , 1 i ) , IT YPE I ,’S I , Me TA L( ItMcfOFF-l J 

IribO! t5 ) • M IN l 8* * 5 )»M1N« ! 8» 2 & ) tMOUT! 8, 25 ) , M.lUTil! B ,2b ) »NI N( 25 ) « •'IK ADI 2 
'V.‘^b).\s!l2b)!*,r(.l.il,hTH!25),NXITI21).0-)AK12b,ll».DFFD(2' ) . PoOFFoOV^ 

* , . ii) B p(3^> f 1 1 > f K ( H 9 2 c ) * R ADR ( U » 25 > » kCUft VE I 32 * 1 1 1 *RH ( 3 2) ♦ K I NT I 11 OFF 0035 J 

‘ F P«1 1 /.RSI ) ASLOPE IU U),kULfc!25),SHAPE12bl,SIXTyb!2'5),Vi!H,20FFD03bl 

. P ,2b),IHK!3, >b),71TU lit), TO 132,11 1.TSTATl 11), X!32) nFFl 0354 

. nMMfN /SCALAR/ urnn/ja 

.A, AA.AiGAO, A20 - AC, AJ03AJ, A4Q4AU, AbObAO,ANG,B,BB,CC ,CE»IT , CM.CML AN.CDFFDOibb 
. MEANP, CHi ,C JK EC, CO JM ,CP,CPI2,CPI 3,CP 1 4.CPI b,CP 16 ,CP02 ,C PL i,CP04,C0FFD03bo 
. PJb.CAHP, rcP,D£LFLu,DFACT» tMACH,EPISON,FACTM,G,GAM**FP *GASK»GJ» oR2» 0FFD03S7 

. H, HIGH, H I PR :S» I. IL,ILD,ICUTTK, I PASS, J.JJ.JH.JMi, JOULE, X,K0fcL,KK,L,OFFO0358 

• LAST.LCl,LEV=L*LST,LSTAtit.H* MACH, HAXP T.MINPT ,N,NBL ADE, NO AT A, NLINES0FFD03 j9 
., MStTS, USPfc EU,N TUBEi. NX, NX1, OFF, OK, PH I, PLO»!,Q,kA,KAOI AN, RDFLD, REF, OFF00360 

Ikes tar ,k mac h*s, solid, spell, stop, t , termd , thtck.ti he , tolat ,t jlcx , tol offdo36 i 
.N iN.TuLR, TOME, V.VHI, YES oFfSo 363 

OF ^ DO 3 64 
OFF DO 365 
OFF00366 
Or F0036 7 
OF F00368 

ITERATION ON THE INITIAL ESTIMATE OF AXIAL VEOFFD0369 
2 IX SSHCHcCK YOUR INPUT DATA ~ THIS I Tfc RAT I ON OFF DO 3 70 
// ) 


WRITE (6,51 I AX 

5 FORMAT l 1 hi 45X23 H***** ERROR MESSAGE NO. 13 ///) 

GO TU (j.l*22»53* 44 , 5 5 1 r»6 *77, 8 8, 99 * 100 ,1 1*12 J til *140*150* 160 *j.a* 

i ±«G* ISO* TOO ) • TAX 


11 nRJIF (6, 12) 

12 FORMAT ( 1K)20Xu7HTHE 
1LUCITY HAS FA1LEC. / 
2 JUST DOES NOT FAIL. 


*** 


£TUitN TO NEW DATA St T 


GO TO iUOC 

22 WRITE (6, 23 ) I,FLOW< I ) 

23 FORMAT ( \ K) 2uX 28FT HL MEAN 
1 1 He SONIC VELOCITY ON TWO 
^TY. PE RH/ PS T Ft MASS FLOW 
GURREC IN SUBROUTINE STREAM 


CALL SUPER 

*** PRINT 


THE OUTPUT 


33 

. 4 


GO TU 1U0Q 
WRITE Ifc,34) 

FORMAT ( 1H0 20X95HTHE 


0FFD0371 
0FFO0372 
UFFU0373 
0FFD0374 
OFF 003 75 
OF F P03 76 

VELOCITY AT STATION I3,*9H HAS EXCirOEO 0FF00377 
/21X31HSUCCESSIVE ITERATIONS ON CONT I NUl OF FD03 7R 
E15.7 /21X54HIS TOO HIGH. THIS ERROR 0CC0FF00379 
//) OFF DO 3 RO 

0FFU0381 
OFFD03B2 
OFFdO^B3 
OF F DO 3 84 
0FFD03B5 
OF F 003 B6 

ITERATION UN CONTINUITY HAS UNFORTUNATELY FA10FFD0337 
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:FN 


iW'J ’/N 


SjtHCr STUEMrNT - Ir-N(i) 


_tl 


fni ; -,U j,< OCCURRED IN SU-ROUTlNt > T -* 2 A M • //> 


>.ALc 

*** j> v 1 \ T 

*j-.i ru .O'./O 

^ r < 1 T F 1 -k.-b ) 

u ( ;k< ? 
, • ini.. ;rj i 


I Hi UOTPUT 


x 


iHTUi. if' vATijN ;:n tht c U < v ; r up l location 
wCjF. ici* i.\ su^uuriNt cmial. //> 


HAS 


*** 


i . r \ h; 


j TP Ul 


Call j\\li 

i m. r o uoo 

■* l T l . ( “ t ‘3 I 

r ( iK>2oXe5KThF IT-KAllUN JN AXIAL VMJCUY HAS FAILED. THl* 
’.lKK'JW OCCURRED IN SUBROUTINE CAXIAL# //) 


*** 


, IN T THc OUTPUT 


> 

>7 


7/ 

’9 


33 

9 


JFFW3K9 
liT F 0‘»S S / 

^ Ft)F ! *') 

OFF )u 3 L 
OFFOOHv l 
tVFoo *o i 
Uf FOC3^<t 
F A I LC OF F DO 3 NS 

■1FFL>03 >/ 
OFF 003 38 
OFF >0)0 # 
Of F 004 0 U 
OFF 0040 l 
j P F 0040 > 
Or F II >40 A 
01 Fj:,404 
■>Fj).;40S 
OF F 004 JS 
OFFO0407 

Gu 10 IOCC 0Ffi)(i4il3 

w,ite (t.67) nlines •t=fkc' , *09 

t- IkHAT ( 1W 2 JX50HTHI- NUMPER OF STREAMLINES MUST PL 5,7.9 UK li, NHlEE ■ >04 1 j 
IT 13.23H, cXiCUTION TERMINATE,.). /21X39HTHIS ERROR OCCUR1EO IN SUBK0TFOr4.il 
€. JUT 1 Nc 30 Sj. //) ,)Ffn04 ;< 

QPFUG413 

**+ CALL c Jt I T SUuSUOTINE O f PD04J.4 

•1FF00415 

•;C. TC 101C OFF 004 16 

WRITE (6.78 1 OFF. 004 1 7 

FORMAT ( 1F0 2 )X >OHThL NUMPE* OF STAGES IS GREATFP THAN 12 , NUMBER ROFFJ0418 
1ESLT T.) it. NuXI uAT A SET uJULU / 2 1X52N8 r IN ERROR. THIS ERROR JCC0FF00419 
.iURRED IN SU ROUTINE BOSS. //I 0FF00420 

'1ST AG£= 12 QFF00421 

OF FD0422 

*** CuNT INUE ON IhlS GAIA Sr T 0FF00423 

0FF00424 

GO TO i :j J 0 0FFD0425 

WRITE Ij.eoi OF F 00426 

FORMAT (1HU2JX92HA NEGATIVE STATIC TEMPERATURE HAS BEEN ENCOUNTE RE UFF00427 


)•:. 
-i v < 


1 J. THIS crlR’JK OCCURRED IN CAXIAL. //) 


PR LIT THE OUTPUT 

GJ TO 100C 

H.vire <6, S3) 

rOM^AT ( 1K>2 jX/^HTHF- ITERATION 
lTHIU ERKUR JCCUKRfcO IN PRFIT2. 


JN REFERENCE 

//) 


INCIDENCE HAS FAILED. 


**♦ PRINT THE OoTPUT 


CJ T o luOC 

i J J MR i ic I of 1J I ) 

1 J 1 FJkMAT ( xKJ 2 J a> 5 hA NON-PUSITIVE INLET 
1 BEEN EiNCOli^TiRtO. THIS ERROR OCCURRED 
c LL CONTINUE ^ITH STANDARD CONOITICiNS. 


TEMPERATURE UR PRESSURE HAS 
IN ttUSS^ /21 X49HEX ECUT I UN 
//) 


OFF 004 28 
QFFD0429 
OFF 004 30 
0FFJ04 31 
OFF !)04 3? 
OFF 1)04 33 
0FF0U4 34 
0FF0043S 
0FFD04 36 
QFF00437 
OFF 004 3H 
OFF 1)04 3*# 
0FFD044U 
UFFU0441 
W10FFD0442 
0FFU0443 


\ 
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\ 


tKkUt,. 


0 5/0 V6H 


- tF.\ 


SOURCE STATEMENT - IFK C S I 


1 t C > = 5 L 3 .PH R 
PCCJ*<! iio, U2 

♦** CJNT INJE ON THIS DATA SET 


i 2 0 

L* 1 


tO 


Ci J TO 10 ?C 

wire (t.i2i) 

FORMAT ( lK>2C*j3FTHt HfertATI'lN 
a OCCURS li i3f //J 

**♦ PRINT IKE OUTPUT 


Oc Id 1000 

WRIT! I b * 1 + 1 ) I 
r t ! v MAT (IPO 20X7 5 HA 
*UJUNUKc(' at AXIAL 


ON EFFICIENCY HAS FAILED. THIS 


01 F 004 44 
cF P 00 4 4*’> 
0FF0044.S 
OFF DO 44 f 
JF F Jl?4 A ■* 
Of F OP 4 '+9 
Uf F Oi >4 SO 
ERMiOFFDO* SI 
0FFD0457 
OPFD0443 
Op F DC4d4 
OFF 004 S3 
Of r 00 C '>b 
UP F 0045 7 

NEGATIVE BLOCKAGE FACTOR AT THE TIP MAS B t l N EN0PF00469 
STATION I 3, IN. /2iXA?HTHE DATA WILL 3t CHANGED GF FDG4S9 


T U 

.11 


A REAjQ+ABLl 

11*1.0 


VALUE. //I 


_->0 
.. is i 


*♦* CCNTI.NJc ON THIS DATA SET 

00 TO 1CKC 

WRITE (b.lii) 

FORMAT C 1H) 20X70 FAN IMPROPER FRACTIONAL 
1 HAS BEEN FHCJUNTEktO. /21X30HTHIS ERROR 

♦** RETURN TO k± W U A f A St T 


GO TC 1030 
i »\j WRITE (o. 1' 1 ) 

1.1 FORMAT I 1H02DX86HE ITHER GAMMA CR 
ivJKt NtGAIlVE* CHECK THF SPECIFIC 
4.R GCCUftrUC IM STREAM. //I 

*** PilOT THE OUTPUT 


MASS FLOW (AN INPUT 
CC C UR R L 0 IM RSTART. 


ITEMI 

//i 


OFF 004 KQ 
OFF OGAM 
OP FD04o2 
0FF00463 
OF F 00464 
0FFQ0465 
OFF 1)04 66 
OFF DOA 67 
OFF D04 58 
OFF00469 
OFF 00470 
0FFD0A71 
OF F 004 7 2 
OFF 00473 

THE STATIC TEMPERATURE HAS BEE F00FFDG474 
HEAT /21X42HP0LYN0MIAL. I H I S ERRO0FF0O475 

OFFD0476 
0FF00477 
0FF0047B 
GFF00479 

UU TO 100C OFF 00490 

j.^ 0 WRITE (6.131) OFF 004 ft 1 

ioi FORMAT < lK)20XEdF7Hfc CONTINUITY ITERATION HAS FAILED (PERHAPS DUE OFFQ04B2 
110 UTPihR FAILURES) AND THE VELOCITY HAS /21 X73HEXC EEOED THE E QU I V AOFF 004 83 
TEMPERATURE. THIS ERROR OCCURRED IN STREAM. //) 0FFD04S4 

0FFD0485 
OFF 00486 
OFF 004 ft 7 

OFFOOARft 
0FFD0489 

UN THE THEORETICAL TEMPERATURE RIS r OFFD0490 

THERM2. //) OFF D049 1 

OF F 00402 
0FFD0493 
OFF 00 4 ^4 
OFF 004 95 
0FFD0496 

NEGATIVE BLOCKAGE FACTOR AT THE HUB HAS BFEN EN0FFD049? 
STATION I3.1H. /21X47HTHE DATA WILL BE CHANGED OFFD0498 

0FPD0499 


- 0 
1 i L 


-L ENT TOTAL 


**♦ PR INT THE OUTPUT 

DL TC 10DC 
WRITE (t>. 19 1) 

FORMAT < 1P020X91FTHE ITERATION 
HAS FAILED. THIS ERROR OCCURRED 

*** PR INT THE OUTPUT 


( :<j to iooo 

-00 WRITE I 3. 2 j 1 ) I 
,01 FORMAT L 1FD 20X75HA 
1CUUNTERED AT AXIAL 
: IU A REASONABLE VALUE. 


IN 


//) 
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:-Ris<iK. - cFN STURCr. oTATtMM^T - IFMS) 

. H< l | - i * u 

*** Civ^ri^ui: on this data sf:t 

',o rr 10.0 
■ 0 J 0 CALL O'JTPbi 

«... , L >\L L HOSS 
... - * 'LL Mil 

10 l ;-ituk‘* 

t Hj 




OFF DOS 00 
OFK>0501 
OFF 00! O? 
OFF JOVn 
OFF 00 ‘AW 

OFF OOL Ji 
QFFOO-.Oft 
QffiWl 1 
OFF 003 06 
OFF 00309 


\ 
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i. KPh 


i. fn 


source- statement 


I FM SI 




\ 


RiM.T UN EXPrtt AN G ) 

VALUE of SU.IUITY LXFCNc NT a IN DEVI AT I ON-ANGL F RULl DEDUCED 

nx'J.M DATA FOR 6 5- (A10 UStRILS 3LADES. 

F l 1»IV t 1 1' \ NASA Si’— 3 b 

*♦« 'CLIDITY L > PUNtN 1 H L N »)t VI A T 1 (JN- AN.»LE RULE AS A 

FUNCTION uF 1 Ht INLtI AIR ANGLE* REFERENCE FKRJRl Is 

iJlMlNS UN C JEF ( 4 I 

LJNMUN /SCALAk/ JJUl), RADIAN, Q00(2ll 
I A T A CUF /0^o?uS71, -L* ^d10395F-0;. , 

> 31 1 69j-‘i* -0. 11SC 9] Uf-S/ 

a = *‘.NG*RAU IAN 

!XEJ^ COEF(i) -HfwLFIZI MCLtMi) +C CtF ( A) *A) * A) * A 

i . ' U'-'N 
. A 


UEF 016 H 
OFF DU 15 

•jFFD-o*;N 
« IFF .)? 6;H 7 
OFFD! f 

cffd; 6 1 -* 

uFHU6'U 
OFF D 1 69 1 
0FF01692 
0FFU1693 
PFFDI 694 
0FF0I695 
OF F D i 6 96 
OF F 0 1 6 9 7 
0 F F D ) 6 9 3 
0FFD1699 
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<~ o o 


lFN 


SOURCE STATEMENT 


iFK! I SI 


0V02/63 


F 


l. 


l r ( jim fac : ( ang) 

f A CTOP M n LEV 1 AT ION- ANGLE RULE FOR CIRCULAR-ARC MEA* LINE 
PLACES. 

F I G J < c 195 (TOP CUkVEI NASA SP-36 

^ifen:>ion CUEF( t ) 

COMMON /SCALAR/ CQ(31)* RAOIAN, QCCI2U 
i A1 A CO r f /0.:S(il37» 0. 56 1 4664E -3 » 

/ — u • 1 U 12'jF;-r>t 0,171 53075F-to , C. 36? 51 3 76C- 7 , 

x u.Md253/£i'll/ 
u-ANL* UU IAN 

c ACTKL-COfcP ( i I Ha FFmHCCEFI 3) f (CQEF(4)-f CCOtF I +COEF( 6) *A| *A) 
X *A)*A)*A 

v' l T URN 

LNO 


GFFD1 764 
0FF01765 
OFF 01 76 S 
Of HU 7 67 
GFF0I763 
0FF0176 7 
UFF01770 
OFFOL77I 
QFF017 72 
0FF01773 
0FF01 /74 
UFF0177S 
0FFD1 7 T6 
OFF 01777 


\ 
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bUlJr’Cu > TAl t HcNT 


IFN< S) 


U'j/ 02/6* 


F 


_FN 


Ki.\CIMN FACTM/IANUI 
OlMLNS Iu;M CUEH o ) 

FACT-J* M IN CL V l AT lUN- ANGLE RULE FOR 65- < A 10 J- ScK l ES F AN* 

L INF* 

FiU'JF- N A ,> A 6P-.U> 

/SCALAR/ RADIAN, gtC(U) 

l'ATA Ci>:-F /0.17CUd, -C* 

> 0# j<rlJ>0 : >7E-^»t 1 ^ 5i SCofiL - J* 0* 4265^7 X i t - 7 , 

X -'l,2762ib6 5--9/ 

'i=ANG*KAD IAN 

rACTM^aCOEF ( 1)*( UitF|2 )* (C0EF( 3 m CUFF UmCQEF (5) +CtK> ( >) *M*A) 

> * A ) ■* A J * A 

H f: 7 UF ■ J 

i. *\ 'J 


OFF 01701 
fir F 01 702 
F*FFDI 70H 
0FFD17<K 
urF01705 
OF FO 1706 
OFF D1707 
OF F 0 1 705 
OFF D 1709 
0FFD1 710 
UFF017U 
OF FD1 7 12 
□FF03 713 
OF FO 1 7 U 
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os/o:i/63 


GAM 

• 

- FFN 

SOURCE STATEMENT 

- IFMSI - 


SCHRuUUNt gam 




OFF DO? 56 

Logical 

CIRCLE, 

SIXTY5 



OFF005 *5 7 

r’ i al 


iKEFt 

JOULE, 

HACH, 

OF F DOS S3 

X MtULf 


MIN. 

MI NR. 

mout , 

OFF .105 *59 

X 1UJTR 





OF F f) 0 5 60 

INI tGeR 

6L40E, 


COUNT 


UFFD0SS1 

LOGICAL 


JFF, 

OK, 

RDFLO, 

OFFDOW 

X n t STAR* 


TONE 



OFF005 

i l iT GGEK 

RULl 




0FF00564 

:\A L KDEL.KJtlZ 




OFF 005 65 

SUMMON 

/Vc CT JR/ 




OFF 00 566 

• f*L R H A( J ') 

* 11). AT A Hi 

BclAi ? J.ll) , 6 H ( 3 2 J 

i .BLADE! 2;>l .4T 

.Cl KCLOFFDOf o7 


. t.(<.5)tCli( 22»ii>»CPCO(fe),CR(.32,ll»»CSI.GPEI32,U> ,CUI32,1I I , OX ( j 2 » 1 1 (JFFOC5 68 
. ),LXM( 11 J ,CXNtv*( 11 l,OA( 1C) ,:>ELM( 11 l,DEPV( 32,11 > ,DF (20) ,9FL0w( 3 2), FOE POOS'! 9 

• L )h( 32). FOR Ml 25) ,FUUND( 2C, 3, 10 ) > I REF ( 2 5 , 1 1 ) » I TYPE ( 23 ) * He TALI 2 > t MET CFFO0570 
.H0 0( 25) ,M IN( 3, 2 r ; >,MINR( 8,25) .MOIJTI 8,2 5 J , MUUTR ( 8 ,25 ),NI M 25 ) ,NRAQ( 2 OFF 005 71 

• M ,MSt -5) ,NSi( 25),NTC(25),NTH(25) ,NXIT(25> ,QdAR(28 ,U» ,UFFD(25),P 1 OFF 005 72 

.( 32, 11),R(32, 11) ,K AO (3,2 5) ,RAOP(9,25) , RC UK VE ( 32 ,1 1 I ,Krl ( * 2) ,K 1 NT ( 11 OFF 0057 3 
. >,RPM( i) ,KS( 32 ),K$LUPfc( 32, 11 ), ROLE (25) .SHARE (25) , SIXTYSI 25), 30(6, 2 OFF X1570 
.5>.M3H(8,25),SS( 8, 25),SSR(B, 25 ) , TE RMC ( U ) , TH (3 ,25 ) ,THC (3 ,25),THCR( OFFOOS75 
. 3.25), THRl 3,25 ), TITLE ( 36), TO ( 32 , 1 1 ) , T STAT( 1 1 ) ,X(32 ) OFF 00576 

COMMON /SCALAR/ OFF 005 77 

• A, AA, A If) AO, ’\2 I J2AO,A30 3AO*A6(J‘+AO,A5Q5AO,AN!3»J,88,CC .CENT, CM, CMC AN, C OFF 00 5 76 

.MLANP, CMi.COK EC , COUNT , CP, C P I 2, C Q I 3 ,CP ( 4, CP l 5 ,CP 16 , CPU? ,C P03 , CPCA, CUFF Oi)5 79 
.P05, DAMP, DC P, DEL FLO, OF ACT , EMACH, EP I SON, F AC TM.G .GAMMt R ,GASK,GJ , GR2 , OFF 00580 
. H, NIGH, H IPRe S » 1, IG, IGG.IUUTTR, I PASS, J.JJ, JM, JM1 , JoULE ,K, KDEL, <K, L, GFF9058 1 
-LAST ,LC1, LEVEL. C ST ,LST AG t , M , MACH, *»AXP T, Ml NP T,N ,f4GL AJE, ML) AT A, NL I NESOFF 0058? 
.,N5tTS,NSPEEL!,NTUbES,NX,NXl,CFF,;jK,PHI,PL0W,a,RA f RA0IAN, RDELO, REF, 0FFD0563 
.RESTAR, R M AC H,S, SUL ID, SPEED, STOP, I, MD, TH 1CK, TIME , TOL AT ,T OLCX , T OLOFF()05 8<, 


.MIN.TOLR, TONE , V » VM I » YE S E1FF00585 

OFF 005 36 

CP= CPCU(l) ♦ I CPCO ( 2 ) ♦( CPCO ( 3 ) MCPCG(V) .(CPC0I5) *CPCC(6) QFF005B 1 

X *TST.4T( J ) ) * TS TA T ( J ) )*TSTAT(J) ) 0FF00588 

X *TSTAT(J) )*TSTAT(J) 0FF00589 

GAMMER* CP/ (CP -IXP) OFFD0590 

kEIUKN 0FF00591 

LNl) OFF 00592 
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\ 


HaL f . 


- ET N SOUKCl STATf ME NT - 1FMSI - 


05/02/63 


jiltV.c'J T 1 IF HAI T 


0FF')959<» 

OFF0069S 

OFF005V'. 


LwOiCAL 

CI Cit, i>rxTY f > 



0FFn05«>? 

• •). AL 

I*- 1 j" 9 

jouli: » 

HACK, 

0FF0U5‘>e 

X AMAL, 

*1 N* 

M ( N K, 

MOOT , 

OFFUO‘599 

a ^ujrrt 




OFF 00600 

IN i -OcK 

b L A 0 1 1 

COUNT 


0FFD0601 

LtiNUAL 

OFI-, 

OK, 

kr>FL r ‘* 

OFF 00 60?. 


TCNt 



0FFDU603 

I ■>! 1 r(jr. k 

aiRt 



OFF 0060 A 


!J c A L KOLL »KCtL 2 
L JMMUN /VECTOR/ 


OFFOONO* 

OFFDOc-06 


. Ai-PHA{ >7, ] 1 )» ATARI 23, ] 1) ,rtLT A( P9, 1 J 1 , BK 32) , tJL ADF ( "’5) ,HT (32) ,C X RCL ’JFFl)')6'> T 

• E( 2p),C( I 22 ,11 >,CPCO< o) ,CK( 3 2, il),CSLf)PF<32,lil ,CU (32,11 1 , CX ( 32, 1 1 DFF006CW 

. ) , ( XM( 11 I ,CXWt.W( 11 ) ,OA( 10) ,DELM( 11 ),DEPV<3 ,111 ,OF (20) ,OFLOW( 3 2 > , FGFECOftrW 
■ L UV< ( 32), ^UMl ..s) ,F0UNO(20, p, 10) , 1 REF ( ?.'j , 1 1 ) , I TYPE ( '3 ) , MC TA L( 2 I , MET OFF 006 1 J 
,HUD< >p) ,M IN < 3 ),M1NR( 3, 2‘i> ,MOUT ( 8,2 5 I • MUUTKl 8 ,2.5 > ,NIN( 25) ,NRAil( 20FF0061] 
. ;) ,NS( 26 ) ,N S3( 25 ),NTc( ?* ) ,N1H« 2 i) ,NXI T125) ,JBAKI25 ,11), OFF 0(251 , P, . OFF 006 l 2 
.( <.,11 >,*(32, 11) ,TAD(a,?5) ,kAl)R( 8,25) , RCURVc ( 32 »l 1 I »RH Cl 2) ,K I NT ( 1 1 QFF00613 
. ) ,1 PM( 1) ,R5(32 >,RSLCPt'< 32, 11 ),RULF(25) , SHAPE(2t>) .SIXTY5 ( 25 ) , Su( 8 , 2.0FF006 1 A 
.p» ,SOk( 3,25),S$< ti, 25),S$1<« 8, 25) , TERMC ( M ) , TH(8 ,25) ,THCI3 ,2 5) ,THCR( 0FFi)l>6 t 5 
..,25), THR (3 , 2.5 ) • TI U H jt ) • T(! ( 32, 1 1 ) , T STAT< i l ) , X (32 ) OFFOO* 15 

CUrtMOJ /SCALAR/ 01 F 006 1 7 

. A, AA, All'! AC, A lCtAO, A 3U 3 AO, A4(J 6A 0, ASC15A 0, ANG ,6 ,BB ,CC ,C ENT , CM, C ME AN, C OFF 006 1 3 
. R. c AN P« CM 2 ,C JR EC , COONT ,CP«CPI2,CPI3,CPI4« CP I5,CPIA>,CPl)2,C P03 , CPOA * COFFI105 1 0 
.P Ip, LAMP, CCP, OELFLC, DFACT, cHACH.EPI SON.F ACTM,G,GAMMCR,GA5K,GJ,GR2, OFFD0620 

• H, HIGH.HIPRCS, I, 1G. 1G0, IOOTTR, I PASS. J, JJ, JM, JM) , JOULE, K, KUEL , KK, L, 0FFD0621 
. L AST, L Cl , LEVEL, L 51 , L STAGE , M, MACH, MAXP T, MINPT.N ,NBL AOE,ND AT A, NL I NES0FF0062 2 
., JSLTS,NSPEc J.NTU5L5 ,NX,NX i, OFF, OK, PH I ,PLOW,U,RA,R ADI AN, RDFLO, KtF, ()FF006 7 3 
. R CS T Art, R MACH, S. SOL lu ,SPELu , STOP , T, TER MO, THICK , T 1 ML .TULA I ,1 OLCX , TOLOFF 00 624 

• KIN, TCLR, TUNC, V, VM I , VC S 0FFD0625 

OFFD0626 

HR I) E (t , 20 ) 0FFD0627 

'u FcRHAT ( Hi 13 ( IX A15( 1M* )/) , 1H035XA9F.EXE CUT I ON TEP MI MATED AT THF END 0FFU0628 
X 0 1- TIME INTERVAL. // 3 ( 1X1 19 ( ] H* I /) ) UFF00629 

*** RLMUVE THli PklNT AFTER INITIAL CHECK OUT OFFOO630 

ENTRY KOCH 0FF00631 

CALL UJTPUT 0FFQ0632 

Call BOSS 0FF00633 

CALL EXIT 0FFD063A 

KtTUKN OFF 006 35 

t ND OFF006 36 
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I v ii f , 


> n 


SuU.<C r - STATEMENT - I F N I :> I ~ 


) j/ 0 E V - 


V l 1 * * L U r 1 i 1 I N E J T 


♦ ** 


uSTIMAT" THE VELOCITIES Alt NG THE -.FAN UNF 


COMMON / GET i I / 

CIRCLE 


f j 1 G P ( LS ) 
;>T XT v > 


mffo* v.o 
hFF.il T- ii 

ii» mu n ^ 

* irfni / j 3 
ur hDi ' i ^ 


r* L 

I.< l_ F t 

JOULbt 

M3CH, 

X V r I AL f 

i - L N • 

RINK, 

rouT « 

A ,-U ,U T R 




ih i EGER JLADEt 


COUNT 


L Pj l CAL 

FT, 

OK, 

Ri.lFLC 

:< * .STA3 f 

re no 




Of F.*J 
■ j| F'JI , 


16 
1 r» 


lijtGcR ROLL 
. L ,<OtL # f\ )t£L Z 

..OftMCN /VCGTLR/ _ rj ^ . 

iLHHAt 1 > • 11 I, ATARI *3, i 1) 1 £ETA( 99, 1 1) * BH ( 3> I , dLAH ( 25 I , 3 T l >cl » L 
l*.j|,CLlC_txi), CPCOl cl tCRl 3 2f : i) .CSCUPt C Jt f 1 n fCU I32f 1 l I • CX ( .Ji2t 1 lUFUJl 


UP MM U 7 
)» F Hi 
OFF'.l 
OPFui 
»H FOi 

if f n 

nr F lu 
« J P F i > 1 W't 
I RCl OFF I) i ' . S 

t> 


1 18 
J 19 
>.o 
• L 

> ' ^ 


tUjl,CLlC_,ii),CPCO(cl iCRUo : I) .L 5 LUVt ( ><.,11 I »cuuit i l - 

J.CXM U),CXN 2 .,< mtUAClO. t 06 LWUn.l> 6 PV(J.>.H). 0 ‘--. ' 0 », 0 HUW( ) 2 >,l- 0 ‘-)-lU »?? 
Llhl 32 ).PCK.M 2 b > ,Hub:M 3 ( 20 , J, 10 ) . I » E*= C 2=5 . U ) .ITYPV! I 29 I • Ml- TALI ’) .MhTOM U) > 2 H 

. . t . % U -L.ir.j / Li i C k Lit Kif . . jJ All! 


^ M ’ *-Pv n * i. J t » « uu ■ » \ w -« w ‘ ■ - - 

►'■joe i-j ) f M I?jl 3 , Z- ),MlNa < H,2 j* ,MfiOTt S, lb) ,M0UTK< a ,2 *> ) , M N < * 3 > , AO l 2 I)* RH •> <L > 
, j ) » NS ( ’5 ) ,NS3( 25 )• NTC ( t5 ) ,NTH( 2b) • NX1 T l 23) »l!b AR 12 :> ,1 1) ,UFf- 1; ( 2 J ) • P'.OFFDJ 2 30 
< 2. 1 i), *1 3 2, ii) .RAD .8, 2b), RACK l 8 *25 I .PCUR V5 t 32 , l l ) ,KH t 3 2) .Kl^Tl ILOrFOl 5>1 
>.IPM( I.H^l - t ) ,K3L2Pt< 11), •UU;t25),SHAPct: t ) , $ IXTY5 ( 23 ) , SOt 8 . 2 OFFO) 532 
iit c, ib ),Si.-i«8, 2*>) , TcRRC ( U) , PH <8, lb I ,THC <3 ,2f>) .THCRl (JFFDT3 5? 


• 3 I t SCK ( J « fc.3 } « j J1 Cf r .2 I f 1 W» » ' ■ ’ - ■ ' ' T 

. .^3 I. THR( 8 t ,15 ),TlTLi( 261 f Tr 5 C 3 L, 1 lit TSTAT< 111 • X ( 32 I 
uCMMUW / SCALA </ 


Of Fill m 
OFFim 


uCMMLW / SC A L A '< / urn '* “ 

A, AA, A 1C AC* A2C?^ACt A3C3A0, A4U4A0 f A 305A0* ANG , ti,PB tCC fCCNT »C^t t MF ANtCOFFDl A36 
.rtEANPtCrt ItCQRLCt COUNT# CPtCP WtCPI 3 »CP I ^»CP I 3 *CP I *> * CPC2 * C P03 » CPG4 t CQFF til 3 37 
, PC b t OAMP* IX P * CEL FLO* DF ACT » tMACH # EP l SONtF AC Mi G f GAHM£R # (,A5K»GJ*Gk2 t JFFO 13 38 
,H* HlGHtHlPRESf 1 1 IGt IGC # I CU T T I P AS 5# J * JJ » JR » JM 1 » JOUt 1 1 K f KH 6L « KKt t * OFF J) 1 3 39 
. L AST tLCx. LEVEL f L jULSTAGE ,H, MCrl,f*AXP T , N I NP T # N f »\8L AUE » NLi AT A, NL I NLSQFFl) 1 ? 

. iNS^T StN SPEEJ»NTUBESfNX f NX It LFFt QKfPH I ,PLOWtQ*Fi A, R AOIAN, RDFLUt «FF f 0FF013<»1 
STAR, ftt- ACHt S f SLLlLtSPEEU# STOP, T f TER NO, THICK, 11 ME # TGLAT ,T OLCX , T OLOFFD13 42 
.rtlNt TCLRiTG-'iCiV, VM I, YES 
PI* 2.1Aii93 
LOGICAL DUNE 
CGNc* «FALSE« 

KUSTAG= PCI I, li/GASK/TCC L, iJ 
TSTAU Jrt)= TU( l, 1) 

VX* 300.0 
J* JM 

CALL JA A 

MACH* SwRT( GKi*L : APMER*ISTATC JM M 
oA= (jAM^ER -1.G)*G,3 
uAh- uAM.rc:</( GAMMER -1.0) 


CALC JLATE AN ESTIMATE OF 
IN T He MACHINE ENTRANCE 


THE MEAN AXIAL VELOCITY 


50 1 = 1,5 

PIMRSd l*<‘2 -RH< I 

w AU K= l ,tl 5 

CaCI.JHI* FLOrtCI )/A/ROSTAG/(i.O ^ 
IF IABSI < VX-CX( I ,JM) i/VXl.LT.TOLCX) 
VX= CX(1, JM ) 


UU 

A= 

JO 


GA*1VX/MACH)**2)*M®.5/GA) 

‘ GO TO 50 


OFFD 13^3 
0FF0l3<t4 
OFFDl 3 ^5 
0FF0134& 
0 FF 013 ^T 
OFF 01 3^8 
OFFD 13 A 9 
OFFDl 350 
OFF 013 51 
GFF 01352 
Of FCM 353 
OFF 01 3 5 ^ 
OFF IJ 1 355 
DFFO 1 3 56 
0 FF 01357 
OFFDl 358 
0 FF 01359 
OFF 01 3 60 
OFFD 1361 

0 ff 0 n 62 

OFF 01 3 63 
0 FF 0136 A 
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o r 


INr ST 


EKN 


SU'JRCr STATEMENT 


I F N ( S) 


0 S/ 0 ?/b 8 


•■■■) C.iNTlFUu 
CALL 

' U C M” IN Uc 

C *** SET THc HcAN LINE INDEX TO THE WORKING STREAMLINE INDEX 

J- JM 

L *** ESTIMATE IHt PEAK AXIAL VELUCI1V THROUGH THE BLADE ROWS 

-n 30 I* > *L ST ACE 

1 F CRGTURCI-4 ).EG.C*0) GO TO 70 
L- I + i 

LX<I,J*i>= VX 

P 1 Al t i)* SL INEI RU-it JM1 t Ml*Hl , 1-4) ,M!N(j , 1-4) *MNU-4 )) 

' ) AL ( )= SL 1NEC R ( it JM),M0U1 RU *1-4) *MUUT (l, 1-4) V NXI T( 1-4) ) 

SOL i L= SLINcCKU-lt JM) t SUR( 1 1 1 -4) , SO ( 1 * 1-4 ) , NS < I -4) ) 

*** ACC ThL CEVImTIUN TU THE EXIT METAL ANGLE AND 
DETERMINE. THE TANGENT OF THE FLOW ANGLE 

CE V= TANl .25*IMEIALC1>-ML I AL < 2 >) / SORT { SOLI D> + METAL (2) ) 

A- PI*(R( lvNLlNES 1**2 -R(I«1)**2I 
IF CKUrORII-4)) £6, 70* hi 
1 LJNTINUL 
P: bO N= 1*25 

C *** CALCULATE THE TANGENTIAL VELOCITY 

C0II,JM)= - VX*OE V ♦RPM(N)*R( I, JM) 

C *** COPPUlr. 1 He TOTAL TEMPERATURE 

TOC I * JM ) = T0II-I*JM1 ♦2.0*RPMCN)*(CU< I t JM)*R( I ,JM) -CUU-ltJM)* 
X R( I-i , JM ) )/GJ/CP 

C *** EVALUATE THE SPECIFIC HlAT AT THIS TEMPERATURE 


C *** COMPUTE THE TOTAL TEMPERATURE 

PC<I*JM)= PJI I-1,JJ*I0.9*I TOCI, JM) -TCCI-lt JMn/TOU-l f JM) M.OJ 
X **GAR 

L SET T Ft FIRST ROTOR EXIT AXIAL VELOCITY DOWNSTREAM. 

It (DONE) GJ TO BO 

L *♦* CALCULATE THE DENSITY 

u *** ESTIMATE DENSITY 

RUSTAG= PCC I * JM ) /GASK/TO C I * JM) 

V= SOR T ( V X**2 ♦ CU C I * JM )**2) 

H - - V* V/ G J 
T - TOC I, JM) 

CALL ENT ALP 

C *** ESTIMATE MACH NUMBER 

M AC H= SGRTC GR2*GAMMER*TSTAT( JM) ) 


OFF 01365 
0FF01 ^6t> 
OFF 01 067 
GFFD1368 
OFFDI 369 
0FFU1370 
0FFD1S71 
0FF01372 
OFFO 13 73 
□FF01374 
OFF D1 3 75 
OFF 01 3 75 
OFFO 1377 
OFFO 1 373 
OFFp 1 3 79 
OFF 01 3*0 
OF F 0 i 3 8 1 
0FF01352 
OFF D 1383 
OFF 1)1354 
OFFD13S5 
OF FD 1 3 36 
0FF01337 
OF F l ) 1 3 R 3 
OFF 01 ? 39 
OF F D I 390 
0FFD1291 
OF FO 1 392 
0FF01393 
OF FO 1 394 
0FFO1395 
OFFO 1 396 
OFF 01 397 
OFFO 1398 
OFF 01 399 
0FF01400 
0FFD1401 
OFF D 1402 
0FF01403 
OFF D1 404 
OFF 01 405 
OFFO 1406 
OFF 01407 
0FF01408 
0FF01409 
0FF01410 
0FFD1411 
0FF014 12 
OFF 0141 3 
OFF 014 14 
OFFO 14 l 5 
0FF01416 
OFF 01417 
0FFD1418 
OFF 014 1 9 
OFF 014 20 
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iv :>t 


EFN 


SOURCE STATEMENT 


in IS) 


us/0 : /*' *’ 


*♦* c^ThATt THE AXIAL VELOCITY 

imJ^TAG- KLSIAG/I1.0+ G.5*tGAMNER -1.0)*<V/TACH)**2 ) **< 1.0 
X / I GAMHFP -1,0) ) 

CMI,JM)= FL'JWII >/A/KGSTAS 

If (AR$UVX -C < I l * JM) ) / VX ) • L T« TOLCX) GO Til 51 
VX“ CXI l, JM ) 

0 b-NTINvJc 

:ALL ERROR! 11) 

.. CJfJL* #TR UL • 
i;»J TO r? 0 

t COM T IN 'it 

T..( I,J I ) - 1 Jl 

*** ESTIMATE PRESSURE 

HU I I » J M I * POI l-l t JM) 

i'.CI 68 K- 1 • 2 5 

*** ESTIMATE WHIRL VELOCITY 

CU< I*JM)= VX*DFV 
if I DG.Vc ) GO TJ 30 

*** ESTIMATE TOTAL VELOCITY 

V® SORT I VX* * 2 *CbI I • JM I ) 


*** zoTiMATE AXIAL VELOCITY 

CX( I * JH ) = FLOWm/A/ROSTAG/I U 0 -GA* l V/MAC If) **2 ) ** CO. 5/ G A) 
IF IABSKVX -CXI WJMM/VXJ.LT. TOLCX) GO TO 30 
VX= CXI I. JM ) 

a continue 

CALL ERROR! 17) 

0 CXI l»JM) = CXI I- 1 * JM) 

CUUtJM)- CU( l-l,JM)*R< 1-1, JM) /RI I.JM) 

TCI It JM )- TGI I- 1 » JH ) 

PCI It JH )= POI I-ltJH) 

0 CUNTINUE 

*** fc S T I A ATE EXIT PROPERTIES 

K = L STAGE + 1 

JO 90 I = K *7i X 

Tul I » JH )-TU I I- I« JM) 

PU( I, JM)=PUl 1-1 # JM) 

GUI 1 1 J M ) - GUI l-i,JM)*Rl I-l*JM)/M I f JMI 
Cxi If JM)= vx 
♦ CLNTINUE 
0 CONTINUE 

*** SET THE VELOCITIES AND OTHER FLOW PARAMETERS AT ALL 


GFFO 14 ? I 
0FFD1422 
0FFU1423 
0FF01424 
GFFIJI4 23 
Of F U4 'ic* 
0 F F 0 1 4 ? 7 
CFFOi.426 
0FF01429 
■TFFDI A?0 
0FFO1431 
C'EFDIA 
jf F U433 
OFF T 14 i4 
>*=014 33 
OrFOlAib 
OF F') 14 37 
0FFD14.H 
CFFD1419 
OFFiU 4 \0 
OF F 01 441 
Of P 014 42 
Jl~ F 01 443 
0 F F 0 1 4 4 4 
OFF 01445 
OF FD 1446 
OFF 01447 
0FF01448 
OFF O 1449 
0FF014S0 
OF F 0 14 > I 
OFF 0 1 4 32 
OFFO 14 53 
OF FO 14 54 
OFFO 1445 
0FF01456 
0FF01437 
OF F 0 1 4 5 9 
0FFD1459 
OFF D1 450 
0FFD1461 
OFFD1462 
0FFU1463 
0FF01464 
0FF01465 
QFFD1466 
0FFD146 7 
0FFD1468 
OFF 01469 
OF FD 1470 
OF FO 1 471 
0FF0147? 
QFF01473 
OFFO 1474 
OFF 01475 
0FFD1476 



VI. ^ 


L Hi 


UURCl statement 


I FN ( SI 


<V>/0 ,\/t o 


\ 


C FuSiTT LNS 

- *.00 It NX 

;i*: ICC J= it NL INFS 

0a ( 1 1 J )- CX( It Ji) 

CJ( I,JI = CU( I,JM)*I<U,JH)/kU,J) 

Tul l,J)= Ui( I t J'< ) 

FC( I« J )= FoC I # jm ) 

100 LuNj inui 

t, **♦ SET INDICATOR SL THAT THIS 

w AOAIN F JK THIS DATA SET 

u o t-nur^ 

i n f : . 


1FF014 77 
0FF0‘‘4T8 
MFF01 A 7 ? 
GFF01 4 SO 
0FFDi4*l 
OFFUlAo? 
OFF014RT 
0FF014S4 
flFFOlMS 
OFFOIA 56 

FOUTINF WILL NOT BE US L(J 0FFD1487 

'JFF01438 

0FF01489 

0 FFD 1450 

f J e FlU4Ql 
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r. r> o 


0 *>/0 '/b 1 


I W u T . 

- : FN 

SOURCE STATEH-NT 

- IFMS) 

VJ.'I LOT I E INPoT 




. ^NLjn /bcT IT/ 

HO TOR 12 <1 

1 


L.LICAL circle. 

SIXTY j 



- ■ A L 

iKbf, 

JOULE , 

MACH , 

X VIAL, 
X k(UT9 

Hl\ , 

M I NR, 

MOU r , 

INTkbtR oLAQE, 


COUNT 


w 1 »L ICAl 

OF F, 

OK, 

KOFLC, 

a r^TAK, 




i n EGER POLE 





"* l ■ i L KJEL,* )cL > 

■; JMHGN / VLCT-W 


‘IFF 008 7 V 
0FF90875 
UFF908 7A 
3FF00? 77 
0FFDOd7H 
0FFO08 79 
UFFOOeOO 
i)FFi)Od«l 
OFF 306 8 1 
OFF 00 8 3 i 
GFF.X)89A 
OFFOC^S 


• ,*i_ r' HA( ! 9 , n I »*TAR( V J9 ; i ) , Gfc T A < 2 9 , 1 U » 3 M t 3 < ) , BL AOE ( '5 ) , ol ( 3 2 > 1 0 I 8 CL OFF 00 8 36 

.'Ac: ),C 0 ( i. • ill, CPoOt 5 ) ,CR t 2 . * 111 ,CS 10 °E I ,CUC 2 ,l \ l»ai VfllOFF > 08*7 

. ) , C*M( 2 i > ,C *NE* ( 11 ),UA( 4,0 , OELH( 11 I* D£PV( 3 ?,li) ,DF (2 0 ) f UFLOW< i 2 ) ,F OFF 00888 

3. >,FCV 3( 2 ) ,Fl‘ JM3< 20, 3t 101 1 1 RtFi 2*. 1 1 i J , 1 TYPF ( 28 ) t Me T ALI 2) ,MET UFFOOd* i 
,i*;LO( C?l .MlNt 8»; K >,*lNK<rt t 31 ,MOUT( 8,28) ,M0UTR<*,25 > ,NIM '3 I , ^Al)( T OFF 008 V) 
> ,NS< ;!>) ,NS;>1 5 ), NTCI *5) * ^ T H 4 25) ,NXI T<25) ,08ARU:5 ,11) , ( 1 FF » » ( _ 3 ) , P* OF F008 91 
.( >(.* 11 ),M32, il) ,R AOt E • 2 ) , K AO R (8,251 ,RCUP VO ( 32 ,1 1 ) t Q H ( j. 21 , * I NT Q i OFFO 33*2 
.),- PM 1) , K5 ( 32 ) , <3 U .’PE ( 3/, il ) , PUL t ( 2 C ) , SHAPE (25) , S IXTY j ( Zb ) , ow ( o , / OFF 008 93 

• 5) ,SCj.\( J»2:> l,SS( if 25>tSSf ( 8*C5> , f£RMC(ll ) , THI8,25> ,THC (8 ,2 0) , UiCi'i OFF 008 0* 

.*,25 ),THK(d, ^ ), Ilf LE( Jt), 10(32,11 >,T STATUl) ,X( 32) GFF^0fi95 

x.Lf'MON /SCALAR/ OFFOOSOt. 


• A, AA, 410 AC, A2J2AC, AiOj AO, A 4U -.A A 505 A C, A VS , 3, OB ,CC ,CENT , CM,CMc AN, CUFF 306 9 7 
. ^r ANP,CM^,LORtC,CuONTtCP,CPI<:tCPI 3,C P 1^ ,CP [ 5 , CP 16 f CP C2 ,C POO , 0 PU4 , C OF F0C8 3 3 

• i 0 L , CA8P , DCP , OFL FLO, OF ACT , £M ACH, E P 1 SC A , F ACTM ,G »GAM PER , G A SK »G J , GR2, OFF 308 09 
.h, HIGH, HI PRES, I v IG, IGO, IOU FTP, 1 PA S S, J , JJ , JM » JM1 1 JOULE , K , W>£L,.<K, L, GFFU090D 

• LASTfLCl , LE VuLt LSr ,L STAGE , M , t'ACH , MAXP T, MI N^T ,N ,NRL AoE, Ml) AT A, NL I NFSOFF 0C9Q1 

• , O St TS ,NS PE CD »NTUB t$» NX , NX 1 , OFF , OK, PH I,PLOW,Q,R A, RADIAN, RDFLO, RfcE , OFF 0^90 ’ 
.KC j TAP, K V*C.i, 5, SOLI J, SPEED, $ TOP, T , TCP MO, TH ICK, TI ML ,T OLAT ,T GLCX, T GL OFF 909 3 3 


•*INt TOLK, TONE # V , Vh 1 , YL S 


OFF 00° <)♦ 


CIMENS ION C HECK ( l) 

OAT A CHECK / 4H6i-S, 4HCIRC, 4HINCI, 4HDEVI, 4FBCTH / 
i N 7 i_Gc R GA 
MTCGtR TtRMC 
KtAL HOLEHT 

OlMtNSlUN WJRUC7I # NCT£(5,3) 

GATA WOK 0 / AHSTAT* aHANNIJ, AHROTUt ^H2-D , 4H3-D , AHSOCT , 
X ‘fhTAOL / 

CATA NOTE / 

X IN, 4HL tT , 4FGUI0, <»Ht VA, 4HNE , 

X <th ROT, -fHO.< • , AH , AH , AH , 

X -H STA, AH , AH , AH / 

Nam tL 1ST /uSTAKT/ UATAIN 

i U K . . A C ( 5 , :J ST A K T ) 

*** READ THE JU3 TITLE, NECESSARY FOR JOd DESCRIPTION 

READ (5, .001 ) TITLE 

C K6A0 f FE SPECIFIC HEAT COEFFICIENTS. 

KlAJ I j, lCOO) CPCO 
100C FOKHAT ( JE2jJ .3 ) 

C 

C *♦* CALCULATE THE COEFFICIENTS NEEDED IN THE VARIOUS 


OFF D0905 
OFF D0906 
0FF00907 
0FFD0903 
0FFD0909 
0FFD09 10 
OFF 009 11 
OF F 009 1 Z 
OFF 009 I 3 
0FFQ091A 
OFF00915 
0FF00916 
GFFD0917 
OFFD0918 
0FF00919 
OF F 009 20 
OFF 009 2 l 
OFF 009 2 2 
OFF 009 > * 
QFF00924 
OFF 009 25 
0FFQ0926 
OFFO0927 
OFF D09 28 


V 
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nnh nnr n nno or o i<^c- 


INPUT, 


- LFN 


SOURCE STATEMENT - IFN(S) - 


03/02/6* 


L JP ER AT IcNS INVOLVING CP 

Lr 

CrU^CPCnm/L. 

CPC:j = CPCUl4 I ✓ 3 • 

CPc4=CPCC|5 I/A, 

CPG5«CPCJtt- )/3. 

A4CAC=CPCC( 2 I/CPCUl i) 

A2(. 2AO*CPU2/CPC(l ( 1) 

A jT jAO=*CPC i/CPCOI 1 I 
AM..hA 0=CPG4/CPCG(1 I 
A;u3A0=CPC5/CPC0Cl) 

C: 1NTG= TEER33t 51L.686) 

C P I 2=C PGC ( 2 I / 2 • 

L r *j 3=CPCG<3 )/J. 

CP I4»CPCL(4 )/4. 

CPl5=CPC0l*> 1/6. 
cP^*CPCOltt i/e . 

IOOjl ECRM/T (x2/V^) 

KK = i 

2'J KlWlNl) t 


*** READ IhL SCrtLLK INFORMATION 


, ML I NC S * 

RDF LO 


NSPEEOt MAXPT, M1NPT, RESTAR, IGUTTR, 


READ (-*,1003) NX 
X IDLIHP, LEVEL, 

LSI AGL- NX- 3 
NE LADt = L STAGE- 4 

READ <3,lCi4l SPEED, STOP, TOCOtPGCC, T0LCX»EPI SC N, TOLR, TOLCP,TOLAT 
1 TOLMI N,MULtwT ♦DA.iP 
KK=KK“ i 

CALCULATE FLUID CONSTANTS 

CASK* G/MCL cW7 
UK- 64 • 34d* GASK 
GR2= GR*.5 

1003 FORMAT ( SIS, L5, 215, Li) 

*** TEST TPt INPUT OATA FOR REASONABLE NUMBERS 

IF IPOCO.LE.O.O.UR.TOCC.LE.O.O) CALL ERRORUO) 

**♦ THE NUM13ER CF STREAMLINES MUST BE 5,7,9 OR 11, ERROR 
WILL TERMINATE EXECUTION 

IF (NL INES.LT .5. OR. NUNES. GT.il. OR. MOD INLINES, 2) . FC.O) 

X CALL ERROR (6) 

*** CALCULATE INTEGER CONSTANTS 

JM 1= NL IN ES / ? 

JM= JMi+I 

NTUBE** nlines-i 
LAST=L STAGE - i 
NX 1 * NX-1 


0FFD0929 
0FFD0930 
DFFD0931 
OFF 009 32 
OFF 009 33 
OFFO0934 
OFF 009 35 
OFF 00936 
0FFD0937 
OFF 009 38 
OFF 009 39 
OFF 00940 
OFFD0941 
OFF 00942 
0FFD0943 
0FF00944 
OFF00945 
OFF 00946 
OFF 00947 
OFF 00948 
OF F 00949 
0FF0Q950 
0FFD0951 
OFF0095? 
OFF 009 S i 
OFF 00954 
OFFD09S j 
f OFF 009 5ft 
0FF009S7 
0FF00958 
CFF009S9 
OFF00960 
0FF0096I 
0FF00962 
OFF 009 £ 3 
0FF009S4 
OFF 00965 
OFF 00966 
0FF00967 
OFF00968 
0FFD0969 
0FFD0970 
OFF DOS 71 
OFF 009 7 2 
OFF 00973 
OFF 009 74 
OFF 009 75 
OFFD0976 
OFF 009 77 
OFF 009 fa 
OFFD0979 
QFFD09 90 
OFFD0981 
0FFD0932 
0FFDO983 
0FFDO984 
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non 


MMJT. - CH4 SOURCE STATEMENT - IFN(S) 


J5/02/SH 


C 


C 


L 

L 

c 

c 

C 


*** i*LT 9=kIVAfIVtS AT ENTRANCE AiSi C EXIT 

C 30 J=ltll 
C A JPEC it Jl= ). 

SLUPtlMXtJ )-0 . 

C I ) = 0 • 

r SI * 1 Pi* (1» J ) ® 0 • 

CUK VE ( . , J )-0. 

>u - cuRve (-ix.j i =0. 

*♦* r. EAO r H«£ FRACTION MASS I LOW R f T k E L N THE HUB AN) THE J-TH 
STRlaMLINE. T HE Sc NU3BFRS MUST INCREASE MP MJ'T ON t C ALLY 
F t r i.) ( » * i 0 i 5 ) iUcLM(J)fJ = ltNLINES) 

K -I STAG. 4 ». 

; At l- l,.4X 

U FLuM I ) * i . J 


OFF DO 9 35 
OFF 009 AS 
IJFF009S7 
OF F 009 3 8 
OFF 00 5 H 
OFF 009 90 
3Ff 00991 
OFF 009 92 
OF F 0099 3 
GFF00959 
OFF 009 9 5 
OF F 009 96 
OFF 00997 
OFFDO^B 
OFF 00 9 99 
OFF 01 000 
OF FO l 001 


REAL) IKE 

BLOCK AT E 


. v A C H 1 N L 
FACTORS 


GEOMETRY A NO 8'. UNOARY L A Y E r 


* h A 0 (9, 1019) X( lit -H(U , GHU). RS(I), GT(l) 

*** CMC* tN THE i L CC K AGE FACTORS AT TIP ANO HUB 
iF IbMIJ.Lr.O.C) tALL ERRJRI19) 

cPKUR(20) 


IF { GH< I ) 

C~NT IN JE 


.LT.C.O) C2LL 


♦ ** PRINT THL INPUT A hi) CONVERT H) THE PROPER UMTS 
CALL CAT 2(0*) 

WrUIE (itIUUA) ( CA ( 1 ) , 1=1, 2) 
j.004 F C » MAT t 1H1 1 1 IX £ A 4 I 

WRITE U,U> 03) TiTLtt NX, NLINfcS, 

X SPEED, TlXCt PCCOt M3LEWT, DAMP, TOLCX, 

X ToLR, TCLCP, TOLAT, STOP, TULMIN, CPCG, 

X ( U EL M t J ) ♦ J= IfNLINt S) 

100 :> ECU MAT ( 1HQ/ /// / 2CX S( lH*l t 1*H 
X S Ur MULTlSTAb 
AAL-FLO* C G ft P * E 
X.<H UFF-OESIGN CU 

X^At,3H // ), 10X9HTHtRE 

XAKL TU Be PERFORMED ATI 
X 


cPISCN, 


k F CRMANCE 


OFF 01 002 

OFF D 100 3 
OFF 0 1 009 
OFF 01005 
OFF 01 006 
OF F 0 } 007 
OFF 01008 
OFF 01009 
OFF 01 0 1 0 
OF FO 10 1 1 
OFF 010 12 
0FF010 13 
UFFD1014 
0FF010 15 
OFFOIO 16 
0FF01017 
OFFOIO 16 
0FF01019 
IGFF0I020 
l OFF D 10 2 1 


N A L Y S 

- I 8X3HNJ6//20X 1 *V ( 1H- ) ,3lH A X 
R S AT l4<TH-l//2JXia<lH-> f 90FFD102? 

T I 0 N S 18 <lh-)//3< 20X9H 10FFD1023 

ARE I 3, 1 4H STATIONS. 28 X35HC ALCU LAT I CNS 0FF01024 

,12H STREAMLINES// UFF01025 

10X19HTHE DESIGN SPE0FF01O26 
X:.0 I SF 3 • 1 , 7 H R.P.V,.//1CX?5HTHE INLET TOTAL TEMPERATURE *F7.2,9H OEOFFO1027 
XG.S.R. 9X26HTHL INLET TOTAL PRESSURE *F7.4,12H (L3/SQ 1N.)//1JX GFF01028 

X^3HIHL MULeCULAP HEIGHT I S F 7. 2 , 29X2 9H THE ITERATION WEIGHT FACTOR =0FF01029 
XF*.1//10X30HTH- AXUL VELOCITY TULEKANCE = Fd. 3 , 18 X 35HTHF MINIMUM W0FF01030 
ALIGHT FLOW INCREMENT =F 6 • i , 1 OH C L8/SE C . ) // 10X26HTH F CONTINUITY TOLOFFD1031 
XEHANCE = F7.4, 21Ai2HTHE ILMPtRATURE RISE TULEKANCE =F7.4//10X 0FF01032 

X ■ Hi Ft r OLE RANGE ON EFFICIENCY IS F6.3.16X23HA HALT WILL OCCUR AF0FF01033 
XIERF6.1, EH MINUTE S// 10X24HTHE ENTHALPY TOLERANCE * F7.4 / 0FF01034 

X//33X53HT Ft SPECIFIC HEAT POLYNOMIAL IS IN THE FOLLOWING F OH *4/ / 3X9 OFF 010 ^5 

X PC P =£ 12 • c . 3H 4 E12.5,5H*T 4 E 1 2* 5. 8H*T**2 4- E 12.3 f 8HM**S 4 c 12 • 5 OFFO 10 36 
A, J H*T*-9 4 ti*.5,5H*T**5///10X79HTHE FRACTION OF THE TOTAL MASS FLCFF01037 
XGw BETWEEN THE HUB ANO THE J-TH STREAMLINE IS. //10XUF7.3) 0FF01038 

*R I T E ( 6 1 1006 I I I,X( l)tKH(I) ,RSCI ) *BH ( I ) , B T ( I ) ,1=1 ,NXI 0FFD1039 

1(05 FOPMAT I 1H1////5 2X33(1H*)/93X1H*3 1 X1H*/43X3 3H^ ANNULUS P ROFFD1090 


V 
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05/02/6^ 


IN^CT. 


- EFN 


SOURCE STATEMENT 


I FN( S) 


> 3 F I L fc ♦/43XiH*31X]H*/43X33(lH*)///8X7HSTATinN6X5HAXIALl^X 0FFD1041 

> -iHHI.'tJ 14X 4HT1P Of FD 1042 

X t 10 X j l HHU3 3LUCKAlE^X 12HUP bLOC K AGE / 1 9X10HCC CROI NATE 2 ( 10X8 HR OFF D1 043 


XAOluS >, 2( 10X8HFACT0K ) // (1 1 2, F i 6. 5 ,2F1 8, 5 t F 17 . 4 ,F 19 . 4 / / ) ) 

K i = 0 
KK - C 

: read am d cecAue the input data. 

UC 220 I - 1, NBL ADE 
i037 f UI MAT ( UI 5 ) 

( 5 , '008 ) SDTJKd), PLADEUI, 

X HJHMd), SHAPE! Il« DFLGWU + 4) 

IF (FJRM< n .L l.O.OI FCRM( I>* 1.0 
IF (SHAPuU I.LE.O.O) SHAPE (I ) * 1 * 0 
1U03 F i :K h AT (A^, OX Zli>, 4(A4* fcX), 2F10.4 / F10.4 ) 


QFFDm* AA « BB, CC, 00 « 




if (ROTu:<<n.eG*wjRo< m rptofc i >* - 1.0 

IF (FOTGRU ).E3.WGR0(Z)) *GTOR(I)« 0.0 
IF (RUTORII I.EQ.C.OI GU TO 220 
IF ( RO TOR ( I ) • EQ • WORD ( 3)) ROTORCII* 1.0 

L= 3 

IF (KCTCRU ).GT.O.G> L= 2 
WRITL (6,1016) lt(NUTF(J,U, J=? , 5) 

SIXTY*!!)- .TALSL. 

CHECK FOK A c5-5fckltS BLAUr. 

IF ( Bd.NE.CHECM J)) GO TO 60 

WRITE ( 6 * 1009 ) 

1005 FORMAT </ $ X 2 uHTHt SF ARE 65-SERIES BLADES ) 

SIXTY5U )= .TRUE. 
uO CIRCLE! I) = .FALSE. 

C CHECK FUR A CIRCULAR ARC MEAN LINE. 

IF (CC.Nt.CHECKi 2)> GO TO 70 
WRITE (6, 1010) 

1010 FuRMAT (/ 5X 36HTHESL BLADES ARE DCUBl C -C I RCULAR- ARC ) 
CIRCLE! I)= .TRUE . 

C INITIALIZE THE 3-D CORRECTION TRIGGER TO NO CORRECTION. 

70 RULE (I )= 1 

CHECK FOR AN INCIDENCE CORRECTION. 

IF ( CD.Nt.CHECM 2) ) GU TO CO 
RUL El 11= 2 
WRITE (6,1011) 

1011 FORMAT (/ 5 X 5BHAN INCIDENCE CORRECTION WILL BE MADE IN THE 
X ION RULE ) 

C- CHECK FDR A DEVIATION CORRECTION. 

GO TO 100 

GO TO 9 0 


JO 


IF (CD.NE.CHECK! 4) ) 

RULE HI- ? 

WRITE ( c, 10 1 2 ) 

1012 FORMAT (/ 3X 52HTHt DEV I AT IUN RULE WILL BE CORRECTED FOR 

XTi ) 

GC TO 100 

C CHECK FOR BUTH A DEVIATION 

<0 IF ( OD.NE.CHcCKI t) I GO TO 100 
RULEC1 )= 4 
WRITE (5,1011) 

WRITE ( 6 , IQ 12) 

100 CONTINUE 

IF < BLAOEU I.LE.O.OR.BLADEm.GT.IGI BLADE (I) * 1 


OF F 0 1 0 4 4 
OFF D1045 
0FFD1046 
OFF DIO 47 
0FFD1048 
0FFDI049 
OFF Q1050 
0FF01051 
OFFD1052 
OFF DIO 53 
0FFD1054 
0FFD1055 
OFF DIO 56 
OFFO 1057 
0FFD1058 
0FF01059 
OFFO 1040 
0FFD1Q61 
OFF DIO 52 
OFFO 1063 
OFFD1064 
OFF DIO 65 
OFFO 1066 
OFF 91 067 
OFF01068 
0FFD1069 
0FFD1070 
0FF0I07I 
0FFD1072 
OFFD1073 
OFFD1074 
OFFO 1075 
0FFD10 76 
OFFDIO 77 
0FF01078 
0FFD1079 
DEVI ATOFF01060 
OFFD1081 
OFFD1062 
OFF01083 
OFF D10B4 
0FF01085 
0FFD1086 
3-D 5FF EC0FFDI08 7 
OFFD1O80 


AND AN INCIDENCE CORRECTION. 


OFF D 1 089 
OFF D1090 
0FFDI091 
OFFD1092 
0FFD1093 
OFFD1094 
OFFD1095 
0FF01096 
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INPUT. - lFN SOURC.- STATEMENT - IFMSI 




C PICK LP Ihu APPKCPKliiTc LOSS DATA SET. IF NO CORRE S POND I NU 

C i.'.i I A Set CAN HE FOUND USE THE FIRST ONE. 

iF (KK.E'T.O ) »iu TO I2G 
U: iiO J=).KK 

IF ( TLkMCCJ ) •t'J.Bl ADE( I I I GO TO 160 

i,u ujr;rmu- 

1 F (KK.N-.10) Gl TO ICO 
■IL AUtI L) = i 
1 r'KMC < < > 

GO Tu ISO 
.21- KK- KK ♦ 1 

T CRMC1 KK ) = 8L A 0 2 ( I ) 

J J — OL^Dt I I ) 

oLAOfciil- KK 
... 0 i\ J - K l + l 

IF (Kl.Lt.lG) GC TO 140 
‘uWNO 4 

iV 0 

GO 1 U l JO 
C 

e. *** R 5 AD LOSS DATA MOM MASTER TAPE 

C 

1 f u READ (a) ( < FJONClKt JtKK) f K=l»20) t J=l •?) 

IF (Kl.NE.TERMLt KK ) ) GO TG 1 >0 
00 TO ioU 
Uu CLADEi I )- J 

J >0 CONTINUE 

WRITE (6. 10 19 ) D FLU w C I *4 I 
WRITE ( t>, XU 20 ) 3 LADu ( i I 
WUTt (j, AO 1 3 I SHAPtU) 

10*2 FORMAT (/ VX 28 F. T He DEVIATION SHAPE FACTOR = F5.2 I 
RfEAO ( 3 t 100 I) N AN U) 

N IN ( l > 

JJ= BLADE! I ) 

1014 f URMAT I 3F10.4 I 

C READ THE INLET METAL ANGLE TAbLL. 

READ (St 1014) ( MINI J « I ) « J = 1 »N) 

WRITE ( 3s 1022 ) ( MIN U 1 1) t J*l »N ) 

READ (5.10141 ( MINM JtD • J*lt Ml 

WHITE ( b » 10 2 3 1 (MlNRlJt I I.J*1»N) 

C READ THE EXIT MLTAL ANGLE TABLE. 

RtAD ( 5* 1007 ) N XI T ( I I 
N = NX I T ( l > 

REAL) IS.1C14) ( MOOT ( J t I ) ? J- 1 * N ) 

WRITE (6.1024) ( POUT ( J 1 1 ) t J* 1 1 N > 

READ (6.1014) ( MOUT M J » I ) . J - 1 . N ) 

WHITE (Ot lu 2 3 ) iMUUTRlJtUf J-ltNI 

C READ THt THICKNESS TO CHORD TABLE# 

v LA J (5. 1007) NTC(l) 

n* n re (ii 

k c A C ( 5 f 1014) ( T HC ( J * I ) t J *1 »N ) 

write ( •< . 10 2 s ) (THC(Jti)»J x i»N) 

PrAU (3.1014) ( THCK (J*I)*J=1.N) 

mKITL I o • 10 3 3 ) ( THCR ( J « I ) . J=*l . N ) 

C READ THE THRUAT TO SPACING TABLE. 

READ I 3. 1007) NTHII ) 


OFF 0 1097 
OFF 01 099 
OF F 0 1 0 9 9 
OFF 31 100 
OF FOl) 01 
OFF 0 1 102 
OFFOl 103 
OFFD1104 
OFF 01 1 05 
OFFOtlOS 
OFF 01107 
GFFDUOP 
OFFOl 10 7 
OFF OHIO 
OFFOl! 11 
OFFDll 12 
OFFDll 13 
0FFDU14 
OFFOll 13 
OFF D 3 116 
OFF 01 1 1 7 
GFF01 l IB 
OFFDll 19 
OFFDll 20 
OFF U 1 1 2 1 
OFFD1122 
OFFDU23 
OFF 01 1 24 
UFF01125 
0FFD1126 
OF F 0 1 1 2 7 
0FF01128 
0FF01129 
0FFD1 130 
OFFOl 131 
OFF D1 1 32 
OFF D 1 1 33 
OFFOl 1 34 
0FFD113S 
OFF Oil 36 
OFF D1 13 7 
0FFD1138 
OFFOll 39 
OFFDll 40 
OFF Dl 1 41 
OFFOl 1 42 
0FFDU43 
OF F D 1 1 44 
OFFDll 45 
OFF 01 146 
OF F 0 1 1 4 7 
OFFOl 148 
OFFOl 149 
OFF Dl 1 50 
OFFOl 1 5 l 
OFFOl 1 52 


V 
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\ 


I ^Ur, - CFN SOURCE STATE WENT - 1 FM S) - 

■<= MHin 

C»tICsl ( TH( J t I } , J= 1, N) 

- ’lit ( ;t 10.^1 UH(J f i) f J=l,N) 
rjA) (5,1014) ( THRU, i ) , J*1 t f<) 

(^, 10231 (THRI J,T),J=l t N) 

PEAC THE SOLIDITY T A 3L D • 

* l.AO ( >, ,007 ) No< I I 
~ N S ( I ) 

1014) ( SU( J, I ) t J-i,N) 

*^\n (otic 2/) isout i) 9 j*i,n> 

I l/'O ( ) , 1 C 1 4 ) I SORI J, l), J=1,N) 

^lTf. ( Si 1 3 ( J , I ) jJ=x f N) 

.v cAO < 3 v l 00 7 ) N3SU > 

NS S ( I ) 

' * AO ( > f 1C14 I { SS (j, I) , J= 1 , N) 
i » L /' 0 (>,1014) ( SSK( J f I ) ,J=1 ,N) 

^uf. < 6 , 1029 * < ssu, n # jm,n» 
mxijl xo23) ( $sk< j t n * j=i ,ni 
if ( AA • C ;J .WORD! 4 ) ) MET HOD ( I ) = 1 
IF ( AA «t C ♦►'OkD< E ) ) METHOD (I)* 2 
IF ( AA. CO*W0aD( t ) J HlTHuDU»’ 3 
iF ( A4*L'ui *^0^u( 7)1 METHOOU)* 4 

0 k t A J THE kAOlUS TO THICKNESS OR REFERENCE INCIDENCE TABLE. 

JF t ME THuDf I) .LC.2 J GO TO 2 . 00 
f > EAO ( Of 1 C07 ) NkAU( I ) 

N = NPAO( l J 

krAO (if 1C14) IRAQI J 9 I)tJ-l f N) 

READ <>*10141 (RAOHI J, I), J=i, N) 

IF ( ME J HJCI I ) . L J .4 ) GU TO 170 
w < 1 1 t ( 0,10 1c) ( KAu( J, I) , J=1,N) 

TU 10 190 

a/OaRIIE (6,10x5) ( RADI J, 1 ) t J = 1 ,N) 
lOi^ FORMAT (// 5X I8W<EE. INCIDENCE 8F10.2) 

1>L» iRO J=I,N 

1J0 k\U<J,I)= RALI J* II/KAD1AN 
1016 FUkMAT (// 5>X 18 HR ADIUS/THIC KNE SS 8F10.3) 

UQ CONTINUE 

WRML (6,1023) ( KADR ( J , 1 ) , J= 1 , N » 

ul) TO 

200 LK= METHUCI I) +3 

WRITE (6,1029) WORO(LK) 

— FORMAT {J/ 5X 4 IhKtFERENC E INCIDENCE DETERMINED FR CM NASA A4 1 

X 1 J HCJRRELA T ION ) 

^V;5 r>L .lO J-)t 8 

HIMJtD- M IN ( J, I) /RAD I AN 
rtLUT ( J » 1 ) = MOUT (J v I) /RAD IAN 

:m> cohtinu:- 

jL- l) DuK T INUE 

c 

c *** SET INLEI PARAMETERS 

C 

DU J 30 1=1, NX 
Uj 230 J = 1 ,N LINES 
CR ( 1 * J ) = 0 .0 
CU(ItJ)= 0.0 
TOlItJl- TUCO 
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OFFOl 1 53 
Of FD1154 
UFFD1138 
OFFOl ] 3*3 
0FF011 57 
0FFD115S 
OFF 01 l 59 
0FFD1 1 60 
0EFD1161 
UFFD1162 
0FFD1163 
0FFDU44 
OFF 01 1 65 
OFFOl 166 
OFFOl 1 67 
OF F 0 3 1 65 
OFF 0 T 149 
OFFOl 1 73 
OFFOl 171 
OF F D 1 1 7 2 
OFFD) 173 
OFFOl I 74 
0FF01174 
OFFOl 1 76 
OFF 01 1 77 
OFFOl 1 7b 
OFFOl 179 
OFFOl 1 80 
OFFOl 181 
OFFOl 1 82 
OFFOl 183 
OFFOl l 94 
OF F 0 1 1 8 5 
OFFOl 1 86 
OFFOl 1 87 
OFF 0 1188 
OFFOl 1 6 J 
OFFOl 1 90 
OFFOl 1 91 
OFFOl 1 92 
OFFOl 193 
OFFOl 194 
OFFOl 194 
OFFOl 195 
OFFOl 196 
OFFOl 1 97 
OFFOl 198 
OFF 01199 
OFF01200 
OFF D1201 
OFFOl 202 
0FF01203 
0FFO1204 
GFFD1205 
0FFD1206 
OFFOl 2 07 


r 



INPUT 


LF N 


SOURCE STATEMENT 


1 FN(S> 


0 3 / 02 /M 


KNUJM FOCU 
*. j‘» CM* INUP 

.K ? 4 1 0 I — 1 * KK 

a mJ *m. ME <h 9 1 G 17 I I r KMC (I)i(OflJlt (FOUND I Jt K,I I , K* 1 , 2 ) , 4*1 ♦ / 01 
30 *.' F^MAT ( 1 H 1 ///////<,JX LOSS DATA St T NUMBER n 9 5 H .. , 

X V>: HHC-FACTUR luX I THAT 10 PERCENT JOX 13 HAT 50 PFRCFNT 

X 1 3 HAT 90 PERCENT 5 X 21 NCCF GL A DE HEIGHT F RUM / FOX IdrlT HE 
Alt; NOR)/ ZG(F 17 .:- f F irf.A, aF^ 3 . 4 /) ) 

*** DETERMINE the T I ME AT WHICH EXECUTION SHOULD CEAS - 


.//// 

iox 

GLCMtT 


UFFD 120 R 
UFF 01209 
OFF D 1 2 10 
flFRU? U 
DFFD1212 
CFFU 12 U 
R 0 FFD 1 2 14 
iTFFO] 2 15 
OF Fill 2 15 
0 FFD 1 2 1 7 
UFFD .1213 


CALC THEM THU 
STLP=STUP*i 5 C 0 . 4 I IMt 
C CALCULATE BLADE SPACING* 


OFF01219 
UFFD 1220 
OF F 0 1 2 2 1 


h i .50 1 = I* N X i 
i 0 *( H = *( I4 a ) — X t I) 

f C N E * • TRUE. 

♦ ** CONVERT S Pt FG TO PROGRAM UNITS 

5?tE0= SPEED*. 10 i 7 19 76 
SPEED* SPEED/ 12. C 


C *** ESTIMAIl iTRt AML INC POStTICN 

C 

CML R START 
OCP = GASK/JUULE 

} 

TSTAlf 1|* TOCO 
CALL GAM 


NGAIA* 0 

IF (LEVb~L.feQ.il CALL HEAD 
RETURN 

lOid F Ji iAT ( 1 Hi // / // / 5X I6H6LAOE [<0W NUMCFR I3» 5H IS A 5A4) 
x(Ji * F AT ( / ^ X59H THE RATIO OF THE MASS FLOW RATE GUT UF THE BLADE 
XIO THE / 5 X 35HMASS FLOW RATE INTO THE BLADE ROW = F6.1>) 

10_J FORMAT (/ 5 X 20HLUSS DATA SET NUMBER lit 29H WILL Bt USED FOR 
X BLADE.) 

1CZZ FORMAT (// 5X i 8F BLADE INLLT ANGLE 8F10.2 ) 

10/3 FUR. MAT </ 3 X 15HKAUIUS CINCHLS) 3X 8F10.3 ) 

10/4 FORMAT ( // 5X 19H8LA0E EXIF ANGLE 8F10.2 ) 

10/3 FORMAT ( // 5X17HMAAIKUM THICKNESS/ 5X 12HT0 THF CHORD 6X 8F10. 
1026 FORMAT (// r >X 14FPA$SAGt THKOAT 4X 8F10.3 ) 

10 7 FORMAT (// 5X 14H3LADE SOLIDITY 4X 8F10.4 ) 

10/S FORMAT (// 3 X 9 FbUPE R SUN I C TURNING BF10.3 ) 

LNP 


OFFD 172 ? 
OFFD 1223 
OFF 01 2 24 
0FFD1 2 2^ 
OFFD 1226 
OF Ft) 12 27 
OFF 01 2 28 
UFFOI 229 
.jFFO ! 2 30 
OFF 012 31 
OFFDt ? 3 ? 
OFFDi 2 33 
DFF 01234 
OFF Di 2 35 
0 FF 012 36 
OFF 01 2 37 
OFF D I 2 3 H 
0 FFD 12 34 
OFF 01 240 
0 FF 01241 
OFFO 1242 
ROW OF FD l 243 
□FF012A4 
THISOFFD 1245 
0 FF 01246 
OFFD 1247 
0 FFD 1248 
0 FFD 1249 
4 ) OFF 01 ? 30 
HFFD 12 51 
QFFOl 2 52 
OFF Dl 2 53 
0 FFD 1254 


\ 
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r> r. 


1NIIC. 


- efn 


SOURCE STATE Mt NT 


IFMS) - 


o 5 / 02 / 6 ,; 


illHPOUl IN£ 1NTEG ( VOEP, IFCON) 


*** 

*4* 


HtRFOPMU MJMfcR ICAL INTEGRATIONS OF THE VOEP VS* 
T RAP EZuIDAL TUL b I NT EGRAT I UN 


R CUHVC 


LOGICAL C I RC L E ♦ SIXTY5 


0FFD0763 
GFF907o4 
0FFU0765 
OF F007o6 
OFF 007 6 7 
OFF 007 60 


REAL 


IK FF , 

JOULE • 

MACH 9 

0FFOO769 

X METAL* 
X Ml IJT* 


min* 

HTNUt 

HOUT , 

OFF 00770 
OFFOU771 

j mT fcGuR 

BLADE* 


COUNT 


0FF00772 

LOGICAL 
X RESTAR, 
TNT L GR rv 

RULE 

LFF * 
TUNfc 

OK. 

ROFLC* 

GFF007T3 

OFFD0774 

0FF00775 


JO 

id 


K Ofc L *KOE l 2 0FF00776 

C'JV'MLN /VECTOR/ OFF 007 77 

. *LPHA( 25, U) # ATARI 25, 1 1 1 ,BETA( 29,11) * BH(32 > ,6LA0E ( ?5 ) * BT (? 2) , C I RCL OFF 007 70 
•tU5), C0( 2 l t il),CPCO( 6)# CR (32*11) *CSL0Pt n?,l* ) ,CU <32,11 ) , CX < 32 * 1 1 0FF00779 
. ) * CXM( 1 1 ) tCXNEWI UltOA(10)#OELM(ll)tDEPV(32*lL) f OF(2O) ,UFLOW ( 5 2 ) * F OFF 00780 

• LOM 3 >),FOKM< 25) *FGUND < 20 * 3 , 1 0) *1 KtF ( 23 * 1 D * I TYPE « 25 ) * META L( 2 ) * MET OFF 00781 
•H*)U( 23) * MIN I 8* 25 )* MINR ( 8,2 5) *MCJUT( 8,2 5) *MCUTR(6 *25 ) *NI N( 251 * NRAO( 20FFD0782 

• 5) ,NS( 751 *MSS I 25 )*NTC I 25) *NTH< 25) ,MXI T( 251 ,OBAK (25,11)* UFFOC 23 )* PU0FFD0783 

• ( 32* 11 ), P (32* 11 ) *R AD( 8*25) * R ADR ( 8*25) ,RCUR VL ( 32 *1 1 ) * RH ( 3 2 ) * R I NT ( 11 0FFD07R4 
• ) *KPM< i ) *RS ( 32) tRSLOPt (32*11), RULE (25 ) * SHAPE ( 25 ) * S 1XTY5 ( 25 > , S0( 8 , 20FF007B5 

• >) . SUP (d,23 ),SS( F* 25),SSR( 8, 25) , TERMC ( 1 1 1 , TH( 8 ,25 ) ,THC (8 *2 5) ,THCR( OFF 00786 

.r *25)*TH t <8* 25 ) *TI TLt( 36), TU(32,11 )*TSIAT(11 ) *X(32 ) 0FF0078 7 

COMMON /SCALAR/ OFFD0788 

• A, A A, A1GA0, A20 2AG, A 3C> ?A0* A ALHA 0, A 505 A 0* ANG , a *BD *CC *CENT , CM, C ME AN* C OFF 007 89 
•ME ANP, CM2,CURlCt COUNT, CP, CPI 2* CP I 3*CP 14* CP I 5 ,CP 1 6 * CP 02 » C PG3 , CP 04 * COFF 007 90 
« P05* DAMP* CCP * DEL FLU* OF ACT , EMACH, FPI SON * FAC TM*G * GAMMER* GASK,GJ* GR2* OFF 00701 
«h*HIGH*H iPRtS* I* IG, IGC, I JUTTR, I PA S S* J , JJ * JM* JM1 * JOULE *K* KDEL * KK* L* OFF 007 92 

• LAST ,LC 1 , LL VEL*L57* LST AG L * M , MACH* M AXP T,MINPT*N *NBL AOE* NO AT A* NL I NES OFF 00793 

• * NSFTS * NSPFE3*NT13ES* NX *NX 1 * OFF * QK ,PH I * PLOH, 0, P A* R AOl AN, RDFLOf REF, OFF 0079 A 

• P ESTAK*KMAgH* S* SOLID* SPEED, STOP* T* TER MO* THICK, TIME *TOLAT *T OLCX * T 01 OFF 0079 5 

«MIN*T r JLR*TQNF*V*VMl*YES OFF 007 96 

DIMENSION VOtP( 32*11) 0FFD0797 

R INT ( 1 ) = 0 «0 OFF D07 98 

GO TO ( 50 *9 0 ) * IFCON 0FF00799 

0FFD08Q0 

*** CALCULATES INTEGRAL OF VOEP * R OR 0FFD0801 

0FF0Q802 

00 15 J= 1 *N TUBES 0FFD08O3 

0A( J ) = ( V l£P ( I, J l*R( I *3 ) + VOEP (I»JH)*R(I,jmi*|fl(I * J+l ) -R( I * J) ) *• 5 OFF DO 804 


R I NT (J + i ) -R 1 N T ( J ) +DA< J) 

r, 1 T (] 150 

**♦ CALCULATE NTUBES 
VOEP VS. R (R ( J ) 


VALUES OF INCREMENTAL 
TO R ( J+l ) ) 


INTEGRALS FOR CURVE 


^0 

iUi) 

1 , 5 
ij>G 

20U 


00 115 J = 1, NTU3F S 

0A( J) = (VOEP( 1,3) ♦VOEP ( 1 1 J+l ) )*( R( I ,J+1 )- 
IMNT(J+1)= RINT(J) +DA ( J ) 
ti= KINT(JM) 

00 . 200 _ J.- 1* NL INES 
HINT ( J )* RINT(J)-B 
RETURN 


R ( I * J) ) *• 5 


Of F00805 
OFF 00806 
OFF 00807 
0FFD080B 
OFF 00809 
0FF0Q810 
OFF 008 1 1 
0FFD0812 
OFF 008 1 3 
0FFD0814 
OFF 008 1 5 
OFFDOS 16 
OFF 003 1 7 
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I 'll C C. - £FN SOURCH SI/XT£MfcNT - IFNCS) 


01/0 ’./hi 


NO 


OFF 008 18 


\ 


B-38 



kofl 


c • 


l Hi SCUi-'tr STATEMENT - IFMM 


05 / 02/68 


I. FACTION KOELtlAM- I 
K S h,N C OET < c ) 

m C t_F /-O* a. ^ 02457 , 

z.i >9 1 1 ^ • 7 ; <t ^ » — I 38 02 • 3 H 3 * 

ol , 1 u*,/ 

• < ( I 

L =v;tH l ) + l U.LF (,: ) + ( (, 0 E F { < I* (UfcF(^) f <CUt F If 1 ♦COlFt u) *A ) *A) 
) * A ) •> A 
Ji fi 


0KF02269 
OFF 02270 
OFF 022 71 
nFF0>.?72 
0 FFJ 2273 
OFF 0^2 74 
OFF 02275 
0 FF 02276 
OF F 02277 
OFF 022 78 


LnSi. - l-FN SOURCE STATEMENT - (FN(s) 


05 / 02/63 


<L F'JNC T I UN LOSUAKG.PERHT.TYPE) 


OFF 01 565 
OFFDl^oS 


c ar a ins loss 

PAKAMETtRS 

FROM THE INPUT 

MAPS AS A FUNCTION CF 

0FFUIS66 

d-HACTOK ANJ PBCoNT 6LAQL 

HEIGHT FROM THE 

ROOT. 

Of- FI) J S n f 

LOCICAL UriCitt 

SIXT Y5 



CFFOl^SH 

uLAL 

HtF, 

JOULE# 

MACH# 

OFFO 

X *■!’_ TM t 

MIN, 

tflNR# 

MOOT , 

OF F01 

* t-G'JTR 




0FF1US71 

IM EGE^ rtLAOe, 


COUNT 


DFFD15 T2 

o'l-lCAL 

or- f , 

■JK# 

RDFLO, 

nfF')lS73 

X ;,CSTA^, 

rota 



OF F 01 5 7A 

INTFGLR PUL t. 




0FFO1S75 


r U KOEL.KjJLc CFF01576 

i-UF'MCN /VEv,Tor(/ OFF Jl ^ FT 

.nLPHAUO, 111 . ATAk( 25. ll),BfcTA( 29,11) ,BK(32) .BLAOt ! 25 I * BT (3 2 ) ,C I RCL UFF01 5 79 
.t( £5 I, CO! 22, 11 ), CPCG( o),CR( 3?, 1 1) ,CSL CPE I 3? , 1 1 1 ,CU(32.1 1 >,CX( 32, L! 0FFD1579 
. l,tXM( ID.CXNCwl il),OA( 1C) tOELM( II ),DEPV( 32 .ll) ,DF (201 .OFLOM32) ,FnFFD1580 
.L jW!32),FCK*U3> .FOUND ( 20, 3, 10) , 1 RfcF ( 25 , 1 1 ) , l T YPt ( 29 ) , ME T ALC 2 » , MET OFF D1 331 

• IK'D ( «: 5 ) ,MIN( 8,^3 l,niNftl< 3 , 25 > ,MUllT( 8,2 5 ) , MGUTR( 9 ,25 ) ,NI N ( 25 I » NK AO ( 2 OFF 01 582 
.R) ,NS< 2 5 ) ,NSS( 25 ),NTC< i 5 ) , NTH ( 2 5 ) ,NX[ T( 25 ) , 08 AR (25 , 111 , OFF 0 ( 351 , PI) OF FO 1553 
. ( 3 2,11 »,;<( 32 , il) ,RAO< 3 , 25 ) ,RAD«( 8 , 25 ) , RC UK VE ( 3 ? , 1 1 ) ,RH ( 3 2 ) ,KINT( 11 0 FF 0153 A 
. ) » PPM! 1 ) , PS ( 32 ) » KSLOPE C 32 , 11 ) » A JLE ( 25 ) » SHAPE ( 25 ) ,S IXTY 5 ( 25 ) ,$u( B , 20 FF 01 ?fl 5 

.5).iGK(d,2Mt Ss(fct25),SSRI 0,23) , TERMC O 1 » , T4(8 , 25 I ,THC (8 ,2 5 > , THC R( OFFU) 586 
,o,251,rHS(b,2:},IITLE12fc»,10(3?.,lll,T<TAT(il>,X(3?» OFF 01 587 

CUKMLN /SCALAR / 0FF01599 

• A, AA, A 10 AC, A2U2AC, A303AO, AACAAO, A505A0, ANG»B,bB,tC ,CEN) , CM,C ME AN, CQFF01599 
.HEANP,CM2,C3REC,CUUNT»CP»CPI2»CPI3,CPl9 f CPI5»CPI6»CP02 ,C PCi ,CP04, COFFO 1593 
•POS.DAMP.CCP.DELFLo.UFACT.EMAC H, EPI SON, FAC TN,G, GANGER, GASK,GJ,G q 2, OF F01591 
.H.HJGH.HIPRES, 1, Ip, IGQ, IOUTTA, I PASS, J * JJ • JM, JM1 , JOULE , K, KDEL,KK, L, OFF01592 

. L AST, L C 1, Lt V EL, L ST, LS T AG E, M, MACH , P AXP 1, Ml NPT,N,NI3LADE, NDAIA.NL I NESUFFO 1593 
.,NSETS,NSPEE0,NTL6cS,NX,NXl,0FF,0K,PHI,PL0H,Q,PA,RADIAfi, ROFLO, REF, OFF 01 599 
. R ESTAR, RMAC H, S, SLLIU, SPEEO, STOP, T.TERMD, THICK, TIME ,TOLAT ,T OLCX , TOL 0FF01595 


.M1N.T0LR, TONE.V, VM I, YES 

INTEGER TYPE, FIRST 
TIkST= l 
FIrST=FIR$T+1 

IF (OFIF IRSTI.LT.ARG.AN0.F1RST.LT, 20) GO TO 10 
JJ = i 

IF (PERHT.GT.0.5) JJ=3 

0EL=(ARG- OF (FIRST-11 )/ ( OF ( F I RST ) -OF ( F IR ST-11) 

t-C 1 1 = ( (F0LN3(FIKST»<.»T YPt) — FOUNO( FIRST- 1,2, TYPE))* DEL) 

X +FOUNO(F IRST-l, 2 .TYPE) 

FCT2 = ( (FOUN 0( UK ST, JJ, TYPE )-FCUN:j (FIR ST-1, JJ, TYPE) )*DEL) 
X 4F0LNCHFIRST-1, JJ.1YPE) 

CEL = FC T 2 - FCT1 

LOSE* FCd +6.25*0 EL *(PERHT -0.5)**2 
h FT URN 
i NC 


0FF01596 
0FFO1597 
0FF01598 
0FF01599 
OFF01600 
0FF01 601 
0FF01602 
0FFD1603 
QFF01609 
0FFD1605 
DFF01606 
0FFJ1607 
OFF01608 
GFF01609 
0FF016 10 
0FF016U 
0FFD1612 


V 
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LOSS. 


- tFN 


SOURCE STATEMENT - IFN(S) - 


05/02/A8 


.-Uri- C.UTJNt LOSS 

ESTIMATE TEE BLADE RCW LOSSES 

UiKMGN /GET IT/ ROTOR il 5) 

COMMON / t Ul L/ BUCKET, NOW 
LOGICAL CIRCLE, SIXTY 5 
':lAL 

x i;tal, 

* RuU! R 

INlCGtR BLADE, 

LJGICAL 
x klSTAR, 
iNTfcGLR PULE 


IktF, 

JOULE, 

MACH, 

MIN, 

MINR, 

MCUT , 


COUNT 


f.FF, 

OK, 

RDFLO 

TONL 





PEAL LOSE 
kEAO MS IC£ 
*** OBAR 


SHOCK! X ) = 


CONTAINS THE LOSS FUNCTION 

UX)= Q — V*A TAN! SORT! (X -1.0)*!X tI.O)|/V) +AT AN1SQRT! 
X IX - 1. 0 ) * 1 X +1.0) )) 

UK* .TRUE. 

ISIA* -MAXOLSaMULL. . . 

00 500 I=ISTA,LSTAGE 

C *** BY-PASS THIS CALCULATION FOR AN ANNULAR PASSAGE 

IE 1 POT JR ( I - A ) ) 10.405,10 

id DO 4S0 J = l, MLINES 

0LARII-4,J)= 0.0 

AA= CX! I- 1, J 1**2 +CU! 1-1 , J )**2 +CR! 1-1, J)**2 
H* -AA/GJ 
T= TO! I-1,J » 

-L *** CALCULATE THE INLET STATIC TEMPERATURE 

CALL cNTALP 


0 FFD2321 
OFFD232? 
OFFD2323 
OFFD2324 
OFFD2325 
0FFD2326 
0FF02327 
0FF02328 
0FFD2329 
OFFD2330 
0FF02331 
0FF02332 
OFFD2333 
0FF02334 
0FF02335 
0FFD2336 
F0FF02337 
MET 0FF02338 
NRAD! 20FFD2339 
PO 0FFD2340 
0FFD2341 
20FF02342 
OFF 02343 _ 
0FFD2344 
0FFD2345 
C0FFD2346 
C0FFD2347 
0FFD2348 
0FFD2349_ 
INES0FF02350 
0FFD2351 
TOLOFF02352 
GFFD2353 
0FFD2354 
OFFD2355 
0FF02356 
0FFD2357 
0FF02358 
0FF02359 
0FFD2360 
0FFD2361 
0FF02362 
OFF02363 
0FFD2364 
0FF02355 
0FFD2366 
OFFD2367 
OFFD23A8 
0FF02369 
OFF02370 
0FFD2371 
0FFD2372 
OFFD2373 
OFF02374 
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lFN 


SCUPC' ST ATE MEN T , - 


I^NC SI 


Q5/n?/6- > . 


L ; . S ' 


i.. v L 1_ NAN 

*** AJC T H _ .»H^_L SI* EM') TERM FOR A ROTOR 

1- l KO K)R ( I- \ ) .0 T.0.0 I AA = AA + RPH( N ) *R ( I- 1 » J I * ( R PM(N I * R( I - L , J ) 
X -2.0*CUU-ltJ )> 

*v* CCMlMJTl- T Hr RELATIVE (AGSULUTE FOR A STATOR! VGLUCITY 
AivC MACH N'jM'Jfc.R 

Cl- S3KTIAAI 

MACH* SORT! AA/( GK,c*GAM 1tR*TSTA r|J)l) 

V= SUKTUOAMMFk +1 .0 )/ (GAMMER -1.01) 

OFT SHOCK ANGLE PARAMETER 

v= SLING (K I 1,1-Alt SS(1,I-4),NSSU-A)» 

.•••..TALI i)= SL INt |Rl I-lt J) .MINRI 1* I-AI ,MIN( 1» I-AI ,NI N(I-4I I 
M.-ULtll* A TAN ( T AN ( METAL ! 11) /SURT( 1.0 +RSLJPE ( l— i » J )**<7 I ) 

A= HtTALI 1) + i K L F I I-4. J) 

A -O/RAOIAN 

*** CALCULATE 1 HE SHUCK LOSS 

..'J IF (MACH.LT .1.0) GO Til 70 
C=J*W ~ jHUCK ( MAC h) 

70 0.0 

tMACH* . .0 
UJ= 0.1 

IF (O.LT.O.O) GO Tu SC 
EM ACH= C* 2.2 + i • 0 
GO 30 K-J. 50U 
V.*4 1= 5HJCK( CHAO } 

IF ( AB3( VMI ) .Lt.O.OOi ) <iU TO ^0 
tUACH* VMi*2«04 ♦FWACH 
i Q CGnTIfHJt 

CALL E3LUH( lZ) 

j 0 IF (MACH.Gb •1*0) GO TO iOC 
tMACH= fcACHM-.O ♦LrtA CH)*C.5 
IF ( lirt 4CH .L E • i ) LU TO 120 
■u,0 TO 110 

lC trtACh- IERACH +M4CH)*0.:3 
_'0 a- J, >*< GAP 'IE* + 1*0) 

0= 0, i*( GAMMER - 1.0) 

Cl- ^.\Mhr : *?/CGrtMKER -i.O 
uOAM 1-4, J) = { 1.0 -< ( A*tMACH**2) / 
x U.L +b*C-HACh**2»l 
2 * y ‘CC i^O + GAM.^CK 
; / (GAMMER + 1.J )*EMACH**2 -H/AI** 

* ( i .U/( i .0 -GA**bH ) ) ) 

t- / (..0 -x.O/(l.G + b* MACH**2) 

e **CC ) 

2C :OG;fiNU*: 

A-JLSUl-RH.il) . 

CC-l (RU-if J1 


0FFO23 ^ t> 
0FFD237? 
0FFD2378 
OFF 02 37s? 
0FFD233) 
CFFD2331 
CFFD2382 
0FFD2383 
CFFD23B4 
OFF 02 3 35 
OFF 02 36o 
0FF0238 7 
OFF D?3 88 
OFFD2389 
OFF 02 3 90 
OFF 02 3 9 1 
0 F F U 2 3 9 7 
0FFD2393 
0FFO2394 
OFF92399 
GFF02396 
0FF02397 
OFFD2399 
0FFD2399 
OF FO 2400 
OFF 0340 l 
OFF 02402 
OF FO 2 403 
0FF02404 
0FF02405 
OFF 02406 
0FF02407 
OFF02405 
GFF 02409 
0FF024 10 
0FF02411 
OFF 024 12 
UFF02413 
OFF 02414 
OFF 0241 3 
OFF 024 lb 
OF F 0?4 1 7 
0FF02418 
0FF02419 
OFF0242O 
GFF 0242 1 
nFFD2«22 
OFFD2423 
OFF 02424 
OF F 0242*5 
UFF02426 
0FFO2427 
OFF 024 2 3 
0FF02429 
OF F 074 )0 
CFFD2A31 
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r> n 


LOSS. - hbN SGUkLb STATEMENT - IFN(S) 


05/U'<i/6S 


\C (JS1 Trib SULIU1TY OFFO^j...* 

OFF02433 

S JL ll.’= oL IN b ( CC » SOF. ( i « 1-4) ,SU< 1, 1-4) ,NS< 1-4) ) 0FF0.-434 

If ( MJTUrU I-'i i.Ll.U.G) GO TO 12? l*FF0^43'3 

TFFDi.436 

L *** COMMUTE Tht DIFFUSION FACTOK UFF02437 

-JFFQ24 38 


C 


t 


uFACT= *.0 -SQRT ( ( CX ( I » J )**2 ♦C^U,J)**2 ♦ CRPMIN)*R( I , J) -CU(I, 
X **j))/CM + ( KPM ( N )* ( F t I— 1»J) — R ( I » J) ) +CU(I»J) -CU *1—1 » J ) » *0 . "i 

X /Sul IU/CF 

do« HFTAC i, J ) 

Lu n; 12 

ku l<FACT = i.O -$ti*T(CX(I« J)**2 +CKII,J)**2 ♦CUC 1 1 J)**2>/CM 
X -0.3*(CU<I*J) -CU< I-lfJ) ) /CM/SOLID 
3i,- ALPHA (It J) 

^ 2 4 Cl* uf I N U t 

i F '*CT= AM IN 11 OF ACT f C*cO) 

CENT * t R ( I * J)-RH< I ) ) /A 

*** A CD THE PROF I L c LGSS 


J HGFFD2439 
0FFD2440 
UF F02441 
OFF 02442 
0FF02443 
0 C FD2444 
0FF02443 
0FFQ2446 
0PFD2447 
CFF02448 
OF FD? 4 49 
0FF024G0 
QFFD24f)I 


f&AXt 1-4, J)= 0BAR(I~4 f J) ♦LOSECQFACT, 
X *2.0* SUL 1D/C0S( AMINKBBt i.2 2) ) 

. LEPV(I f J) = OL AK ( 1-4 » J ) 

IF (ROTORU-41) 12J»500,140 
1^0 F E F= ALPP A( I- It J J 
C!iM= 0, 3 
GO TO 1 liu 

1 rO *EF = 3:TAU-ltJ) 

1^0 i-..Fs RcF -MEfAL(l) -IRLF(I-4tJ) 

RLf- RfcF*RAUlAN 
] F ( REF * bT . 0 #0 ) GL TO 16C 

C ♦** ADD THE OFF -DESIGN LOSS 

AA= MSIDEXMACH) *REF**2 

‘ij TU ito 

k-0 AA= PSIDE(MACH)*REF**2 


0FF02452 

CENT t BLADE < l -4) ) OFFD2453 

0FFD2454 
OFFD2455 
0FF02436 
GFFD2457 
OFFQ245B 
0FFD2459 
OFFD2460 
OFF 0246 l 
OFF D2 462 
0FFD2463 
0FFD2464 
OFFD24 65 
OF FD2466 
UFF02467 
GF P D2468 
OFF02469 
GFF02470 
0FF0247I 
OF FD2472 
0FFD2473 
0FFQ2474 
0FFD2476 
0FFD2476 
OFFD2477 
0FF02479 
0FFD2479 
OFFD240O 
0FFD2431 
OFFD2492 
0FFD2483 
0FF02484 
0FF0248S 
0FF02436 
0FF0246 7 


--•5 IF (AA.GT.U 3 AR(i- 4 ,J)) AA* -? ♦ 0 * 08 AR ( I- 4 t J > 

Ct3 ARC I-4fJ)= 0BAK(I-4«J) + AA 

-C... *** CALCULATE KuTOH EFFICIENCY BASED UN LOSS 


*4* CALCULATE THE STATIC ENTHALPY MINUS THE TOTAL 
ENTHALPY 

rt= -I CXI In t J )** 2 +CR( J-l. Jl**2 +CUC 1 -1 * Jl **2 ) /G J 

i= fCCI-ltJ) 

L *** Gtr 1 HE S TA 1IC TEMPERATURE 

CALL ENT ALP 
E- THERM i IT 1 

L *** CALCULATE THE STATIC PRESSURE AT THE ROTOR INLET 
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LuSS 


EFN SOURCE STATEMENT 


IFNI S) 


05/02/68 


PS TAT® PfJ ( I- l « J ) *E XP ( ( THERM3I T STATIJ) ) -3)/DCP> 
l.’O IF IROTO.TII-4)) 200,500,180 
iiO CONTINUE 

H® RPMIN ) *R ( I— 1,J)*IRPMIN)+RH“1»JI -2.0*CUI 1-1 , JII/GJ 
CALL. ENT ALP 

*** COMPUTE THE TOTAL RELATIVE PRESSURE 

PREw® POI I- 1, J )*EXPI I THERM 31 TSTATfJ)) -BI/OCPI 
H= RPM(N)**2*IR( I* J) -R ( I — 1 , J I ) ♦ I R 1 1 » J I +R 1 1-1 1 J) ) /G J 

T® tstatiji 

0® ThERM 3( T I 
C 'LL ENT ALP 

*** COMPUTfc THE TUTAL IDEAL PRESSURE 

P IDEAL® _P REL *EXP( ( THERM 2 IT STAT ( J) I -a)/OCP» 

*** CALCULATE THE EXIT RELATIVE TOTAL PRESSURE FROM THE 
LOSS COEFFICIENT 

P= P IDEAL -ABSICBARI I-4,J))*IP REL -P STAT) 
it® RPM1N)*RI I,J)*IRPM(N)*R(I »J) -2.0*CU( I, J) )/GJ 
T® TO! l.J) 

CALL ENT ALP 

*** COMPUTE NEW TOTAL PRESSURE AT ROTOR EXIT 

P®_P*£XP.t,LTHERM3 IT 1 -THERM31 TSTAT I J) I l/UCPI 
GLi TO 210 

200 P= POtl-l.J) -ABSI00ARII-4,JII*|P0II-1»J» -P STAT) 

210 CONTINUE 

IF IABSI IP-PCJlI. J) )/P) .GT.TULAT) CK® .FALSE* 

4JXL PUI.L,J.1=P. _ - 

GO TO 500 

*,15 GJ 496 J®1, NL INES 
496 POI l.J)® POI I- It J) 

500 CONTINUE 

.*** CHECK 5TAGE EFFICIENCY FOR CONVERGENCE 

NN=LSTAGE+1 
OU 965 I=NN,NX 
00 965 J = 1,NLINES 
5 j 6 ?UII,J) = PO( I-l.J) 

_ . KE1URN 

END 


OFFD2498 

OFF02489 

OFF02490 

0FFD2491 

0FFD2492 

0FF02493. 

0FF02494 

0FFD2495 

0FFD2496 

OFF02497 

0FF02498 

0FFD2499 

0FF02500 

0FFD2501 

0FF02502 

0FF02503 

0FF02504 

OFFQ2505 

QFFD2506 

0FF0250T 

OFF02508 
0FF02509 
0FFD2510 
Of F025H 
OFFD25I2 
0FF02513 
QFFD2514 
0FF02515 
OFFD25 16 

0FF02517 

0FFD25 13 

OFFD2519 

0FF02520 

0FF02521 

OFFD2522 

0FFD2523___ 

0FF02524 

0FF02525 

0FF02526 

OFFD2527 

0FF02528 

OF FD 2529.. 

0FF02530 

OFF02531 

0FF02532 

0FFD2533 

0FFD2534 

0FFD2533_ . 

0FF02536 



\ 




— L iAu The i.ir 
CIRCLE 

: -A L 

X iUAL, 

X LUTR 
InT^GfcR bL*OE, 

I • : G l C £ L 
> L o TA* , 
iU'J tClfc R JL l 
r • L K TEL ,« 3 cL 2 
. MrtOM / Vl o r L . •;/ 

AU H*.| IS-, 11 ), ATA*< 2^ 
( /l)»tu( 


t)i/02/6t 


- IhN 

SUUttCr STATE Ml NT 

- lFN(s) - 


s maia 

UMt THc FILL* 


OFFOOOO? 

S X X T Y 

5 


OFFDOO J; 

IM F , 

JOULE, 

MACH , 

OFF 0000 

M l ‘3 * 

M l N K , 

MCfUT , 

OF«=OOCKVi 




UFFOOl i(jf> 


COUNT 


0FFD0O07 

UF F y 

OK, 

RDF L U, 

OFF 00008 

Tlifcf 



OFFOOOO^ 


OFFDOOlO 
OFF 000 ! I 
OFF 000 12 
) ,11 3 CL fJFFOOO 1 3 
t U PFFOOOK 

uffdooin 

r M l : T OF FOOD 1 6 
20FFD0017 
. . JOFFOOOia 
F' I M T ( 1 1 OFFOOO 19 

» $G( b , ? uFF 000 20 

■ - - - - »THC C 6 ,2 S ) , T HCR( OFF 000 2 1 

J,ll),T:>TAT(ll),XI3Z) OFF 000 2 2 

CFF0002 3 
r CM, C ME AN, C OFF 00024 
‘ 33,Cr>04,CGFFD0025 
<?GJ , GR2* 0FFU0026 
tKK, L» OFFOOD27 


9? J 


- ,NSfcTS,NSPEC J,MTUafcS,NX ,NX1 

• MS TAR, RjIACH, StSDL XU, SPMD 

• F. INtTOLF 9 TJNLtVtVHlfYrb 
I 1*0 * j, 9 10 J 10 
f uhMAT ( I. ) 

Ul‘ 920 1 = 1, l', 

(( CXfK, J) ,K=lt >0) , J=i,3> 

ift RI T t l't) 

J\l FlLt '• 
i'hhihl) 4 
r '.Jf MAI < i cF j m \j } 

CAIl 30SS 
.'■tlURN 

i.*\0 


I jjf jilvUMl* JUULF , K, KJDfcl , KK» L, OFF 000 27 

M, MAC H , MAXP T,MI NPT, N ,NBL ADt, NU AT A, NL I NFS OFF D002B 
1 • OFF ,0K, PHI ,PLOrt, G,RA,RADi AN, RUFLC, REF, 0FFD00 29 
•STOP, f, TER MU, THICK, TIME , TOLAT ,T OLCX , TGL OFF 000 3 0 


ti 1 1 uau, j j ^=i f .aij 

HCXCK, JJ,K = i,10) f J = l,3) 


TOLOFFOOOSO 
OFF00031 
OFF 000 3 2 
OFF 000 :» 3 
OF F 00034 
UFF00035 
Of FDOO 36 
OFFDOO 37 
OFFD002 8 
UFFD0039 
OFFOOOAO 
OFFOOOAl 
QFFD0042 
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0 J r i . - tFN SOURCE STATEMENT - I F N C S J 


05/0 2/53 


jofcuiu r Ii>lc OUT 1 

CjMUN /GET Wt ROTOR ( ?S ) 
L JGIC AL CIRCLE, SIXTY5 


AL 

IrtfcF, 

JOULE * 

MACH * 

M TAL, 

WIN* 

M I NR * 

WOUT , 

VCUTR 




UUEGER 3LAJE* 


COUNT 


L* G IL AL 

OF F * 

UK* 

RDF L C 

r t 5 T A < * 

TUNE 



INTEGER RJLE 





R i. £L KDEL ,K 3EL 2 
KM UN /\tZJr</ 


OFFQ2676 
OFF D2 6 7 7 
0FF02679 

offd?6 n 

0FFU26H0 
QFFD26R 1 
UFF025R2 
0FF02693 
OFF 02634 
UFFD2S85 
0FFD2636 
UFF02637 


• 2 L ** HA ( I ? , 11 ),ATA^( <.5* 1 l) ,BETA< 29,11) ,UH( 32) , BLADE ( 2 5 ) , BT ( 3 2 ) * C I RCL OF FO? 6 38 

• iLU5J«CU( 22,11), CHCOl 6),CK(22, 11) , C SLOPE ( 32 ,1 i) «CU (i2v 11 I « CX ( 22, 11 (JFF 026B9 
. ) ,CXM( ll),CXN2w( ll).OA(iC) *OtLM(U >,0EPVI32,11 ) ,DF (20) *0FL0W( ? 2 ) * F OFF 1)2690 

• LL M( ) , FORM! 23) ,FUUNU(2C* 3,101 , I REF (2 5, 11) ,1 TYPE ( 23 ) , ME TAL(2) , MfcT OFFD269 l 

• HL*D( 25), M IN (8, 25 ), MINK (6,25) ,MUUT( 3*2 5) ,M0JTR(«*25 ) ,NIN( 25) * NR AIM 2 OFFD2692 
.5) ,N3< 25) ,NS$U51,NTC125),NTH< 2 5) ,NXI T( 25 ) ,U3AM25 * 1 1) * OFF 01 25 ) , PC0FFD2693 
-( J2, 11 I, XI 3 2, 11) ,AAu( 8,25) .RAOR (3,25) , RCUR VE ( 32 * 1 1 ) * RH ( 3 2) *RI NT ( 1 1 0FF02694 
.) *Li'M( 1 ) * KS ( J2) * RSLJPE ( 32, 11 ) ,kJLE (2 5) ,SH4PE<25) ,S IX TY5 ( 25 ) , S0< a, 2 0FFD2695 

• j) ,SUiU3*25) ,SS(€, 25) ,$$R< 3, 25) * TERMC < 1 1 ) , TH( 8 * 25 ) ,THC(3*25) , THCRt UFF02696 

.3,c5), fHA(3,25)*TI TLE( 2 f) , TO (32*11 )*1STAT(11) , X ( 3? ) QFFD2697 

COMMON /SCALAR/ CFFD2693 

• At AA» AlL-AC, A2O2AO.A3O3A0,A4O4AO, A 505 AO * ANG * B * B8 ,CC ,CENT,CM,C ME AN, CUFF 02699 

• Ml AN P* CMJ,CGRlC * COUNT ,CP*CPl2tCPI3,CPl4*CPl5*CPl6»CPU2*CP03 , CP04, C0FF027QJ 

• Pu L • CAMP * CCP * DEL FLL *DF ACT * EM4C H, E P l SCN , F AC TM ,G ,GAK M8R , GA SK*G J , G R2 , 0FF0270 1 
.H,HlGH,HlPRtS*lf IGtiGO, 1UUTTR, IPASS* J, JJ* JM.JMi ,JOULE,K,KDEL*KK,L, 0FF02702 
^LASr,LCl,LfcVtL,LST,LSTAGE,M,MACH,KAXPl,MINPT,N*NBLADE, ND AT A, NL I NESQFFD27 03 

• ,NStTS tNSPEEO ,Nf U8ES,NX, NX1 , CJFF, OK *PH I ,PLOW, Q* R A* R AUI AN, RDFL J, REF, QFFD2704 
*KESTAK* RMALH* o,GCLlDiSPtEJ,S TOP, I, TERMD * TH ICK , T I ME .TOLAT ,T ULCX , T OL OFF D27 05 


• MIN*TULR, TONE , </ , VM I, YES 

DIMENSION 0 AY ( 2 ) 

;iACH= 100.0*r;PM(N)/SPEED 
IF (LEVEL «EQ« 1) GO TO 1C 

. . GO. IC 50 .. .. .. .. 

Q WRITE ( a , 20 ) MACH, F LUW ( L S TAGE ) , A, AA, CC 
0 FURMAT (Fl4.i,FU. 3*F11.3*F17.3,F20.3) 

GO TO 50 
ENTRY HEAD 
CALL JATtlCAY) 

. .WRITE (6,40 1 TITLE* DAY. 

0 F'JF MAT (1H /// 2( 24X 1 2A 6/ ) //102X2A4 ft 
X 7X 10MPERCENT UF 5X 9HMASS FLOW 4X 10HEFF I CIENCY AX 
X 14HTUTAL PRESSURE AX 17HT0TAL TEMPERATURE / 

X 6X 12 HOE SIGN SPEED EX 4HRATE 25X 5HRATI0 15X 5HRATI0 
X 22X 3HIL3/SEC) ////) 

a KETURN _ 

END 


0 FFD 2706 
OFF D270 1 
0FFQ270R 
0FF02709 
QFFD2710 
0FF02711 
OFF 027 1 2 
OFFD2713 
OFFD2714 
0FFO2715 
OFF D27 16 
CJFFD2717 
0FF0271 9 
0FFD2719 
0FF027 20 
0FF02721 
OFFD2722 
0FF02723 
0FFD2724 


\ 
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OUT*. 


- EFN 


SOURCE STATEMENT - IFNtS) - 


05/02/63 


jUbROUf INE OUT 2 
COMMON /GET IT/ 


ROTOR ( 29 ) 


LJCICAL CIRCLE, SIXTY5 


KLAl 


ikef. 

JOULE, 

MACH , 

: M f TAL t 

. *ourR 


"1IN, 

MINft, 

MDUT , 

INTEGER 

BLADE, 


COUNT 


LOGICAL 
USTAR, 
INT EGER 

RULE 

OFF, 

TONE 

UK, 

ROFLO 


REAL KOEL.KOEL2 
COMMON /VtCJOR/ 


OFF02726 
OFFD2727 
OFF02728 
QFF027 7 
PFF0273J 
OFFD2771 
OFF 027 32 
0FF02733 
0FFD2734 
0FF02735 
0FF02736 
OFFD2737 


. ALPHA (29, 11 ), ATARI 23, 111 .BETA I 2 9,111 ,BH! 32) , BLADE! 251 ,BT 13 21 ,C I RCL 0FF02738 

• E( 23 ) « C'Jt 22 ,11), CROC I 6), CP (32, 11 1 .CSLOPE (32,11 ) ,CU (32,1 1 I, CX < 32, U OFF 027 39 
. > ,CXM( 11 ) ,CXN Em ( 11 ) ,DA( 1 C) , DEL MI 1 1 ) ,0EPV(32 ,11) ,0F (20) .OFLflN ( 2 ) , F OFFD2740 

• LUM I 32), FOR MI 25 ) .FOUND ( 20, 3, 10) , I REF I 25 , 11 ) , IT YPE I 25 ) , ME TA L< 2 I , MET OFF02741 
• H -- * 2a ) ,MIN ( 8, 25 ), MI NR ( 3,25) ,MOUTt 8,25) ,MOUTR( ft ,25 ) ,N1N( 25 I , NRADI 2UFFD2742 

• 3 ) ».MSI 25 L.NSS 1 25 ) »NTC(25 J , NTHL25) ,NXIT(25) ,08 AR (25 ,11) , UFFUI 25 ) ,POOFF 02743 
«I 22,11 ),R( 32. 11) ,RAC( 8.25) ,R ADR (8, 25) ,RCURVe(32 ,11 ) ,RH(3 2) , RI NT ( 110FF02744 
. ).RPM( 1) .RSI 32),RSL0PE(32, 11)»RUL£(25) .SHAPE (25 1 , S IXTY5 ( 25 ) ,S0(8 » 2 OFF 02 745 

• j) , SUR (U» 25),SSIt»25).SSR(3»25)»TERMC(ll)»TH(8,25) ,THC(H,25),THCR( OFF 02746 

. E,25) , THKl 8,25), TI ILfct 26) . TO! 32,11 ), TSTAT(ll) ,X(3? ) OFF 02747 

COMMON /SCALAR/ 0FF02748 

— •A»AA«A1UA0« A2U2AO,A303AO,A4U4AO,A5CJ5AO,AN5,8,BB,CC .CENT, CM, C MEAN, C0FFD2749 
-Mt ANP, CM 2, COR EC, COUNT , CP ,CP1 2, CPI 3 ,CP 1 4, CP I 5, CP 16 , CP02 ,C P03 , CP04, C OFF 027 50 
. PUS , DAMP , CC P, DEL FLO, DF AC T, EM AC H«£PI SO N»F AC TM, 6, GAMMER ,G4 SK ,GJ , GR2, 0FF02751 

• H, HI GH, HIPRES, 1, IG, 1G0 , I OU TTR, I PA S S, J , JJ , JM, JH1 , JOULE , K» KOEL.KK, L, 0FF02752 
-.LAST, L Cl, LLVEL, LST, LSI AGE, M» MACH, MAXPT.MINPT ,N ,NBL AOE, ND AT A, NL INES0FF02753 
.,fiStIS,NSPEEQ,NTU3ES,NX,NXl,QFF,0K,PHI ,PL0W,Q,RA,R ADI AN, ROFLO, REF, 0FF02754 

-JLEiIAR,JLMACrt^S,SllLJD^SP££Jl,ilOEU-I, TER MD.THLCK, TIME .TOLAT ,T OLCX , T 0L0FF02755 
. M IN, T ULR, TONE , V , VM 1 , YE S OFF 027 56 

— IMENSIUN T ERM13I 11),TERM1(11) OFF 027 57 

WRITE I G, 5) TITLE OFF02758 

3 FUKMAT l 1H1////// j( 24X12A6/) ,/// 3X 3I24X 10HCUKULAT IVE J ,bX4HM AS S/ 0FF02759 
X 6 H STA- 61 JX 14riMASS AVERAGED ),7H FLOW / 

- X -QH^JIUiL^iax_14LHPRLSSURL_RAIiJJl,2l MX 13HTEMPERATURE ), 

X 21 4X 13HEFF IC I ENCY ), 7H RATE / 

X 35X 21 12X 5HRATIU ) , // / ) 

P 1 N= PUIl.l) 


GO TO 100 


T 1 N= TO ( 1, 1 ) 

P LAST= POT 1,1) 

J LAST= TOi-Ull 

CM 2= THEKMKTU) 

DO 100 1= 5, LST AG t 
IF (ROTUK(I-4).EQ.O.O) 

00 10 J= l.NL IKES 
H= -(CX( I.J 1**2 HCRU,J)**2 

—1= IQ1I.JJ 

CALL cNTALP 

0EPV(1, J)= CXI 1, J)*PO( 1, J)*EXP( I THERM3( TSTAT ( J) ) -THERM3 IT) ) /OCP ) 
X /TSTATI JI/GASK 

CU(I.J)= DEPVII, J)*PO(I, J) 

K CURVE I I, J)= DEPVI 1,J)*T0(1,J) 

j CUNT-IN U£ 

uALL INI EG IDEPV.l) 


+CUII,J)**2)/GJ 


OFF02760 
0FF02761 
0FF02762 
OFF02763 
0F-FD2764 
OFF 02765 
OFF02766 
OFF02767 
OFF02768 
0FF02769 
OF F 0 2 7 7 0 
0FFD2771 
OFF02772 
OFF02773 
0FF02774 
0FF02775 
0FF02776 
0FF02777 
OFF 02 7 78 
OFF02779 
OFF02780 
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JUT l 


EFN SOUKCt: STATEMENT 


I FN < SI 


Qv/O^/^ \ 


l JT AC - p IN T ( NL I NILS ) -RIM(l) 
v- ALL INTF'J ICJtll 

^ OUT = ( K IN F ( NL l NE S ) -R I NT < 1 M / FO T AL 

:all in teg ( rcurv t . 1 \ 

r CUT* < R IN T ( NL I NE S ) -RINT ID ) /TOTAL 

4 A- I’ ’JUT /P 0 ( It J ) 

CC* T JUT/TOUii) 

Ih (RGTORU-4 ).L T.O.OI GO TU 20 
P LA$T = P IN 
T LAST* T IN 
cO bt> = P OUT/P LAST 
C M* T OUT/T LAST 

p in* p uur 

T IS* r OUT 

CmLL THLRM2138.T CUTiT LAST) 

EFF* 0.0 

IP I T Iri.EC. TLA ST I GU TO 24 

EFF = IFHERMUT GUT) -TFERHMT LAST)) 

X .. /(TFERMllT IN 1 -THERMKT LAST)) 

2 4 CONTINUE: 

LALL THE 7M 2( AA, T GUT, TO) 

4 = 0.0 

IF < TIN. EC. FQ(i, I) ) GU TU 28 
A- ( THERM 1( T UUT I -CM2) 

X_ / ( THERM 11 I_IN ) ~CM2i 
2d CLNTINUE 

WRITE 16*20) 1* ED. AA . CM, CC * EFF* A* FLOW(L) 
j 0 FORMAT (15, F12.2, 5F17.3, FJL4.3 ) 

1U0 CONTINUE 

H- RPM(N)/SP£ED 

WRITE , 16,40.1 .. K 

'*0 FORMAT (///9X3IHTHE FRACTION UF DESIGN SPEED IS F5.2 ) 
RETURN 
liVD 


OFF D2 7 8 1 
OFF02792 
JFFD2783 
0FF027N4 
UFF0273S 
OFFQ?7d6 
OFF 0? 7 3 7 
OF F 0 2 7 8 H 
OFF D 7 7 3 ) 
OFF 02 7 90 
0FF02791 
OF F02 792 
OFF 0 7 793 
OFF 02 7 94 
OFF 0?795 
PFF0?796 
QFF02797 
OFF 02 798 
OF F 02799 
OFF 028O0 
0FFD260 l 
0FF02302 
OFFO2R03 
0FF02804 
0FF02805 
UFF02806 
0FFD2607 
CFFD2808 
0FF02809 
0FFD2810 
OFF D28 1 1 
OFFD2812 
0FFD2BI3 
0FFD2614 



t F N 


SOURCE S I A JTMINT 


IFM SI 


OS/O^/frt 


1 1 jT ; • 


.VjrM'GU r IMc JUTS 




OFF 02 Bl 6 

L '*M ON 

/ GCT If/ 




OFFD2817 

L - . t ^ C C A L 

CRCLE, 

SIXTY K 



OFFO?filR 

* i AL 


i*:f. 

JOULc , 

MAtH, 

CFFO/tiiO 

; u TAL » 


MIN* 

MINR* 

MOOT , 

OFF 028 211 

. '-ifJTK 





PFF02m 

!M chv* 

JLA Ot * 


COUNT 


OFFH?e J ? 

L .CIC \L 


CFF, 

OK, 

KOFLC, 

0FF02R 2 3 

r *■ ^ T A K 

t 

lONt 



OFFD2A24 

L * T Hi * 





UFFD2825 

r.J'L KDEL,*DEL? 




0FF02826 


/VECTOR/ 




CFFD2R27 


.Alt- Hi ( Ill, AU*( t 5, U ) ,3ETA(2 1,111 ,8M32l .BLAOEI _ 5I ,t>T (321 , C 1 RCL UFF028 2 8 

.ti: •» ,uii j.: t i: itcpccui* cMi^f in ,csl ope i 32, 11 1 ,cu < 32,11 »,cx< 12 , uoffo’b’? 

. I ,CXM 11 »,C <‘lc /»( ill ,LA( A JJ » , DEL Mill 1,0EPV(3 2*11) ,PF (201 ,l)Fl OWl 321 ,F0FFD?K3‘) 

• LCi*(j21»FrK'H 251 .FbUNOUC, 1, 10 1 , 1 REF C 25 , i 1 1 ,ITYPE ( 25 1 , HE TA LI 2 1 »MH OFF 028 31 

• H ii I 2 5 I , M IN I S t 25 ItMINF (0*251 ,MGUT I 8 , 2 5 1 , MOOTR( 8 ,26 1 ,NI N( 25 1 , NR A0< 2 OF FD28 32 
.j),hS( 25) ,SS3(25),NTCI251,NTn( 251 .NXITI25I ,UBAR 125 , 1 1 1 , OFFDI 25 I , P IOF F02B33 
. I j 2» li l,'U32, 1.1 .RUM 5,25) ,H AURC 3,251 .RCURVEO? ,11 1 ,RH< 321 ,R1NT I 11 0FF02834 
. ItkPM ll.PSI J.l.kSLUPEC :,11),P0LE1251,SHAPEI251,SIXTY5(25}, SOI 8 , 2 UFF028 .35 
.:>! .SCR I 3,23 It Sit c,2r I, S2>P I 6,251 , TERMC { 111 , THIS, 251 ,THC 13 ,251,1 HCRI 0FFD2636 

• 3, *.11 , T HR (<3,251, IITLCCitl.TOI 32,111, TSTATC11I ,X(32 I 0FF02837 

COMMON /SCALAR/ (JFF028 38 

.A, AA.AiuAu, A2024u, 43u3Au,A40 4AQ,A5C!5A0,ANG,b,eB,CC ,CENT,CM,CMt AN.COFFD2839 
.MEANP, CK^.COK^C ,CLUNT • OF ,CP 1 2, CP I 3, CP 1 4, CP I 5 ,CP 16 , CPG2 ,C PH 3, CP04, COFF 02940 
. Fb5,LAMP,CCP.UELFLC,OFACT»EKACH»iPISOK,FAC TM,G»GAMMER»GA SK.GJ, GR2* 0FFD2P41 

• h, HluH.HlPKtl, i, lu, ICO, I CUT I R, 1 PA S S, J • J J, JR , JM1 , JOLLF , K , KOEL , KK, L, OFF 028 42 
.LAST.LC1, LEVi.L,L ST , L ST AGE , M , MAC H, MAXP T ,M1NPT,N ,NBL ADE, NO AT A , NL I NES 0FF02843 

• •*<S£ U.NSPtE0»NTU9ES«NX,NXl, GFF,0K,PHI ,PLOW,Q,RA,K ADI AN, ROFLO, REF , OFF 02844 

TAP.jRMAC H« S,SULIU»SP_EfcD«SIjQP,T»TERHD«THICK» TIME »TOLAT ,T OLCX , TOL 0FFO28 45 


.MIN.TJLR, TCNcV.VMI.YES 
blMCNSICN E.AYI2I 
C 1MENS IC < STALL (<.1, STAL(21 
LI MEM 1JN T ErlMK 111 

L AT A BLANK, STAL / AH , <*H STA, 4HLLE0 / 
i/O 5 J = 1 , NL I N£ S . 

5 R IN T( J I * 0.0 
CC >0 1*5, L STAGE 
IF (ROTOR! I— 4 1) 30,40,10 

x 0 C JN T in os 

LO 20 J=1,NLINES 
OMI Jl* TCI I-i.J ) 

T 2 /1 1 1 J I = P211-1.J1 

CALL THE RM 21 PC ( l» Jl/PCC 1-1* Jl » T, TGC 1-1 » Jl I 
kl.NTCJI* ThERMiC 10< I* Jl I - ThfcRM 1 C TCI 1 -1 , Jl I 
_0 A TAR (1-4, J)= CTHEPNim -THE RM II TOII- l , J I I 1 /RI NT! J 1 

GU TO 40 

00 CO 18 J*L.NLi6uiS 

1 r I P INT I Jl .b 0.0 #01 GQ TC 35 

CALL THERM 21 PH I.JI/TfcRMlI J),T,CXM( Jl) 

A T AR I 1 - 4 , J 1 * (THEF.M11T) -T HE RM1 (CXMI J 1 1 1 /RI NT < Jl 

bC TC _>8 

01 ArARCI-4,Jl* (PCII-1.J1 -POU, Jll/POl I ,J| 

^J.LUFjT 1NUE . 

: 0 uUf.T l.NUc 


0FF02846 
0FFD2847 
0FFD2843 
OFF02849 
OFFD2850 
0FFD2851 
0FF02852 
QFF0 9 853 
OFF 02 3 54 
OFF02855 
0FF02855 
OFFD2857 
0FF02858 
0FF02859 
OFF 028 60 
OFF 02 861 
OFF 02862 
OFF02863 
0FF02864 
0FFD2865 
0FFD2866 
0FFD2867 
Of F02868 
0FF02869 
OF F 028 70 
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GUI 3 • - £ FN SOURCE S TATEMtN T - IFN(S) - 

^ALL ,)ATE (DAY) 
l,'= u 
U 

C ; 5 0 J 1“ I* NX 

WR 2 r e (r. ,30 1 0 AY f T I TLE 

IF I I • L T . 5 . OK. I * GT • LST AGE ) GO TO 110 
If CRQTtjftU-4)) 100» i 1C, 120 
iuO K = IS fi 



H' 7 

ire 

ir> 

*32 ) 

IS 


CO 

ro 

125 



1 iO 

h 8 

1 rt 

(6 

*54 > 

I 


'H! 

TO 

123 



120 

IK 

= IR 

f i 




>iK 

1TL 

( 6 

.ol\ 

I R 


W9 

lit 

( 0 

* 35 ) 



SW 

ITh 

(6 

*56) 



126 Gu 1 60 J-l.NLINES. IOUTTR 

A* CX(l,J)**2 +CR( 1 v J }**2 +CU< l • J ) **2 

r1= -A/OJ 

r= 1 uc it J ) 

CALL ENTAL? 

CALL GAM 

A A- SO*T< GK2*CAMHEK*T$TAT( J|) 

A- SCRT(A) 

B- kPMIU)*rUlaJ) 

V- SQRTi LX( I * J )**2 +CR4I,J1**2 MCU(lfJ) -dl**2) 

MACH- A/ A A 
LM ACH* V/AA 
CXM(J)* MACH 

IF IPOruR(i-AKGT.O.C) CXM(JJ= EMACH 
1JD WRIJE (6 »5d) J ,R( I • J ) * CX(I.J). CU(1,J>* CR(I,J>, A, MACH, 

X V, £ MAC Ft 8 
WRITE ( t> toOJ 
WRITE (o ,55) 

IF ( I.tT.S.im.I.GT.LSTAGEI GO TU 153 
IF (RUTORI I-4>.NE.G.O) GU TO 155 
103 WRITE I 6 ,66) 

go ro cio 

105 WRITE (6 ,62) 

CO 130 J=liNHNES, IOUTTR 
ARC= ( K ( 1 , J ) ♦*< 1-1, J) )*C. 5 

R I N T ( J ) = SL 1NE< AKG , SOR ( It I -4 ) , SO 1 1 * I -<t) , NS ( I- 4) ) 

. -HETALl 1 ) = SLINE (R (1-1 , J1 tMLNRIL* 1-4) ,MIN( 1, £-4) ,NINU-4) ) 
htTAL( 1) 3 ATAMTAN(METAL(1))/SQRT( 1*0 +RSLOPE ( I -i , J) **2 > ) 

A* ALPHA( I- 1 1 J ) *RADI AN 
b= G E T A ( 1-1 » J ) *R AD IAN 
S T ALL ( 1 )= BLANK 
STALK 2> = BLANK 

... IF IUBAR11-4.J).G£.G*G) _ X57 __ 

STALK U- STALli) 

STALLt 2 ) = STALC2) 

137 CONTINUE 

UBAR(I-4,J)= A8S(UBAR4 1-4, J) ) 

CM= OEPVCl, J) 

_ IF, -UUtf£R(Lr4J»&UIU01_- GQ TO 160 

AA= SORT ( CX( 1—1, J) **2 *CR( L-l, Jl**2 +CU(I~1, J) **2) 


05 / 02/68 


nFF0/<m 
0FFU2672 
( JFF 028 7. 3 
0FF02874 
OFFD2?75 
0FF02H76 
OFF 02 8 7 7 
OFF Q?8 78 
0FFD26 79 
OF F 1)28 80 
OFF 02^ 3 1 
0FFD28 8 2 
OFF 028 83 
OFF02994 
0FFf)2 q 35 
OFFU23R6 
QFF02837 
OFF 0?898 
OFF 020 87 
OFF D2890 
OFF 028 9 1 
OFF 02392 
OFF 028 9 3 
0FF02894 
QFF02S95 
OFFD2896 
OFF 028 97 
GFF02398 
OFF D2899 
OFF02900 
OFF 0290 1 
OFF D2902 
OFFO2903 
0FFD2904 
0FF02905 
OFF D2906 
0FF02907 
0FF02909 
0FF92909 
OFF 0 2910 
OFF 029 1 1 
OFFD2912 
OFF 029 1 3 
UFF92914 
OFF 029 1 5 
OFF 029 16 
OF F 029 1 7 
OF FD 29 16 
OFF 029 19 
OFF 02920 
OFF 02921 
0FF02922 
OFF 029 23 
0FFD2924 
OFF02925 
0FFD2926 
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OJlJ. - EFN SOURCE STATEMENT - IFN(SI 


05/02/63 


CM: = S,MT(CX( 1,J)**2 +CK ( I , J ) **2 ^CUU,J>*»2) 

BH = CU( 1-1* J ) -Cl( UJ) 

Cl> (ALPHA* 1-1, J ) -MET AL ( 1 1) 

j TO \L 

j J M = S9R T ( CX < I- 1, J )*♦ 2 +CR(l-l,Jl**2+(RPM(NI*R(I-l, J)-CUII-l,J 
X ) 


OFFD2927 
UFF0292 3 
0FF02929 
OFFU2930 
) )**?CFFO?931 
UFFD2932 


Cr' < ; = S«RT(C*C . *Cfttl»J)**2 MRPM(N)*R<1 ,J) -CUtI » J) )**2) 

38 = RPM( N )* ( R ( I- 1, J) -R(I,J)) +CUC I, J ) -CUC 1-1 , J) 

CC= RETAI I- 1, J) -MET AL ( 1 ) 
lob CC= CCIRACIAI 

*'tTALIl)« METAL( l)*RAl)IAh 

lKEF( 1-4, J)= IRLF< 1-4, J)*RADIAN 

uEAU= 1.0 - CMZ/AA +0. 5*BB/RI NT< J » /A A 

►RITE ,64 ) J,i,FACT,OBAR< 1-4, J) , STALL ,CM,ATAR U-4 , J) , HCTAU 1 

X CC, I Kt: F 1 1 — 4 , J ) , A, B 

ZdG hl-.ITL lo ,5 5) 
hurt is ,6a) 
ilO CL'NT inue 


X 240 J=l, iXl INE St 1UUT TR . 
PSTAl = PU(I,J)+LXP(1THLRM3 
IF 1 I.L1 .5. JR.I.GT.LSTAOE) 
IF (KUTCR(I-4)..\L.C.G) GO 
1 i6 CONTINUE 


TSTAT(JI) -THERM3 ITC (I,J)()/OCP) 
GO TO 215 
TO 220 


, 


WHITE (6 ,70) J, IC(I,J), PO(ItJ), TSTAT(J), PSTAT 

GO TU 2*0 
220 CONTINUE 

ARC* I R ( I* J J +K (1-1 , J) }*C» 5 

I HICK= SLINEIARG , ThCR (1 ,1-4) , 1HC( 1,1-4) ,NTC(I -4) ) 

U- SLINlCHI I- 1,J ), THK ( 1,1-4) fTHl 1,1-4) ,NTH<I-4) ) 

r'ETALC 2) = 3 L I N E ( H ( I , J ) ,MUUTR(1, I -4 ) , MOUT < 1 , I -4 ) ,NX IT (1-4 I) 

MtIAL(2)= AJAN( TjAMMETAL ( 2 J )/SURT( 1.0 +RSLQPE ( I * J|**2)) 

£= ALPHA ( I, J ) 

IF ( KOI UK (l-4).GT.G.O) B = 6 ETA ( 1 , Jl 
B‘- (b -METAL( t ) ) *RAD1 AN 
MlT AL t 21= M £T AL ( 2) *RAD1AN 

**1TE (6 ,70) J, 70(1, J), PQC I , J ) • TSTATCJ) , PSTAT ,RINMJ), 
. X THICK, 2, METAL(L), 0. 

240 CONTINUE 


IF 1 1*LT • 5. OR • I * GT .LST AGE ) GU TO 245 
IT (RCTORCI-4 i.Ni.O.Q) GC TO 300 
245 CONTINUE 

WHITE (6 ,72) 

GO TO 310 . . „ 

300 WHITE (6 ,55) 

310 CUNIINUL 


5 JO CONTINUE 


:0 FORMAT ( 1 FI llix 2A4/ ( 24X 12A6)//) 
o2 FORMAT (6X 15HSTATCH EXIT NO. 13//) 

• 3 4 FORMAT IElX J.1HSTALJJJN MJ* 13//) 

3L> FORMAT ( IX 119( IF.)) 

z>6 FORMAT < 1SH .S.L. STREAMLINE 4X 9HAXIAL VEL 4X 9HWHIRL VEL 4X 
X *OHRADIAL VEL 4X 7HABS VEL 5X dHABS MACH 4X 7HREL VEL tX 
X P HR EL MACH 5X 8KWHEEL . / 

X bH .NO. 3X 10HKADIUS IN. 4X 8H(FT/SEC) 5X 8H(FT/SEC) EX 
X dh(FT/^£Cl -5A ££if:TVSECl„5X_^ 8H(FT/SEC) 7X 6HNUMBE R 

X £X BHSPEED . / 2H . 117X 1H. 1 


GFF02933 
OFF f)29 3 4 
OFFD2935 
OFF D2936 
OFF 02937 
OFF 02938 
0FFD2939 
0FFP2940 
0FF02941 
OFF D29 ^2 
OFF 02943 
OFF 02944 
0FFD2945 
OFF02946 
OF F02947 
0FFD2948 
OFF 029 49 
OFF f)2°50 
0FF02951 
0FF0295 2 
OFF 029 5 3 
OFF 029 54 
QFF02955 
0FF02956 
OFF 02957 
OFFD2953 
OFF 029 59 
OFF 029 60 
0FF02961 
0FFD2962 
OFF02963 
0FFD2964 
0FFD2965 
OFF 02966 
OFF 02967 
0FFD2968 
OFF 02969 
OFF 02970 
0FF02971 
0FFD2972 
OFF 029 73 
0FFD2974 
OFF02975 
QFF02976 
0FFD2977 
0FFD2978 
OFF 02979 
OFF 02980 
OFF 029 81 
OFFD2932 
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') 5 / n ?/68 


0FFD2981 
. I 0FF02984 
OFFD2935 
0FFD2986 
OFF 0299 7 
0FF0293P 
OFFU2489 
UFF'.)2990 
0FF02991 
0FF02992 
UFF02993 


6F FORMAT ( flH .S.L. TOTAL TEMP TOTAL PRES STATIC TEMP STATIC 0FF0299A 

x»V-S . / OFF 02995 

X <.H . 6X 22H0EG RANKINE Li/SQ IN. 4X 27H0EG RANKINE LO/SQ IN. HFF02996 
X . / 2H . 33X iH. ) OFF 029 9 7 

jB FUKHAT ( 82 H .S.L. TOTAL TEMP TOTAL PRES STATIC TEMP STATIC 0FF0299H 

XFRES . SOL 10 II Y THICKNESS AX 34HTHR0AT . EXIT PLADF DEV IAT 1 0N0FFl)2099 
X . / OFF03000 

X EH . 6X 22H0tG RANKINE LB/Sfl. IN. 4X 27HOEG RANKINE LB/SU IN. 0FF03001 

X . 12X 8HT0 CHURD 5X 34HSPACI NG . ANGLE OEG ANGLE DEG . I 0EF03002 

X 2H . 58X 1H. 33X 1H. 2 AX IH. ) 0FF03003 

7 C FUR MAT C2F . 12, F12.I, F12.3, F1A.1, FI3.3, 5X IH. F8.3, F11.3, 0FF0300A 

X F 12 .2 , SH . F9.2, FI 2.2, AH . ) 0FF03005 

72 FORMAT I IX SOUH.II 0FF03006 

K El URN . _ . OFF03007 

END OFFO3008 


OUT 3. - cFN SOURCE STATEMENT - IFNISI - 

. 7 F’jFMAT ( >X 9 HR 1 3 T OR NO* 13, 6H. EXIT. //) 

o8 MAT ( 2F . 12, F13.2, AF13.1, F12.3, F12.1, F 1 3 . ’, Fll.l, 

->0 FORMAT < 2 F . 117X IH.) 

. FORMAT ( 17 H .S.L. DIFFUSION 6X AHLOSS 9X 8 HREF LOSS SX 

X j vFiAO l AB AT IC . INLET BLADE INCIDENCE REFERENCE ABS FLOW 
X -x 9 HR EL FLOW. / 

X OH .NO. AX 6FF ACT Ok 5X U HCCEFF I C IEN T AX 1 iHCOEFF IC IE NT 3X 
Oi* INEFFICIENCY . ANGLE (DEG) 1 5X 9HJNCIUENCE 3X "HANGLC IN 3X 
X OFANGLE IN. / ' F . 58X iH. S8X IH.) 

FORMAT ( 2 F . 12, F10.3, F13.3, 2Ah, F7.3,F14.3» AX IH. F8.2, 

X F1A.2. 2F12.2, F11.2, 2H . ) 


V 
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a jtp. 


- fcf-N 


SOURCE STATEMENT - IFMS) 


0 VO Z/bli 


iULhCUTlNL OUTPUT 
tuEKAL CIRCLE, S I X T Y 5 


ixlELtrf RULE 
>' - •'•L K DEL iKDtL 2 
CxMMCN /VECTOR/ 


OFF026AS 

OFF026A6 


CxMMCN /VECTO H/ 0FF02647 

. ALPHA! 2-/. H ), ATAKI 2S ll),iiETA(29,H),BHC32) , BLADE ( cB ) , Bl (32) »C I KCL UFFD26 AB 
•-I xJl.uOt Utl U.CPCUI 6),CR 02.11) ,C SLOPE <32, 11 ) .CUI32.il ) , CX( 3 2, 1 1 Of FI126A9 
• l.LXrtT 11 ) ,CXNErf< lx ) ,JA( 101 .DELMlll ) ,0E>> V( 32 ,11 ) ,CF (20) ,UFI UM 32),F0F FD2/ SO 


.G,2j),THK(d,2f ), TITLE!. 6). TU ( 32,11 ),T SIAM 111 ,X!32> 
CL’HMCN /SCALAr-:/ 

.A, AA..A luAC, A2U2AC. AiGJAO. A AlKAU, A 5O5A0 » ANG.B.BB.CC . 
. f3x A.MP . CM 2 .CORE C^XuUM T .CP, CE I_2*.C P L2 , CP I A , CP 1 5 , C *» 1 6 , C 


120) »UFI U*( 3 2), FUFF 026 50 
:5), ME TALI 2) |HH OFFU26E1 
,NlN! 25>).NRALii; , flFF0265 2 
11) .OFF 0(23), PuOFF 0265 3 
.KHID.2) .PINT! UGFF02654 
XTYS! 26 ) , SOI 3, 20FFD2655 
THCIB B) , THCR! 0FFU2656 
OFF 02657 
0FF02659 
CENT ,CN,GMFAN,COFFU2659 
Pf‘2 »C P03, CPOA ,C OFF 02660 
ER,GASK,0J,GR2, OFF02661 
LE.K.KDEL.KK, L, OFF 02662 
DE.NOATA, NL INESOFFD2662 


. x . Lx » cl iliii i_> 1 av»l , h * “lACH , MAXP I.MINPT.N.KEL ADE, NO AT A t KLINES OF FD2663 
NGPEEU.HTliatS.NX.NXl. CiFF.UK .PHI « PLOW, G.KA.R ADI AN, RO FLU. REF , OFF 026 64 
K Y.AC H. S , SL.L 10, SPExU.STOP, T , TER NO, THICK, T I ME ,TCC AT ,T OLCX.TOL OFF 0266*5 
.R^IuNt^V-xVttlxy^ OF F 02666 


.AESTAH.K YACH, S.aLLiU.SPI 

.. -AlK , IxlLR^IuNi:* V * 

mCAI A= NEAT A fl 
uul TL (3u,20,:u), LEVEL 
xU LALL OUT 2 
LALL OUT 2 

— U LALL OUT 1 

KcTUKN 

xNU 


T0L0FF0266*5 
0FF02666 
0FF02667 
0FFD2668 
OFF 026 69 
0FF026 70 
OFF 026 7 1 
OFFD2672 
0FF026 7 3 
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n n 


p'i i , 


t FN SOURCE STATEMENT - IFMSt - 


J5/02/o3 


a <uu i iNfc 
i.'MON /C-tT 


PRFI f 1. 

1 1 / r;> r r j« ( , 


91 


DFFU2538 
OFF lit' 5 3 i 



/FULL/ 

BUCKET, NCW 



OFFn?540 

L.vlCAL 

Cl <CL 

F, SUTY5 



OFF Oi: ^ 41 

SAL 


Ik lF t 

JOULE • 

MACH , 

OF F f> J c 40 

V TAL* 


M 1 N t 

H ! NR, 

MOOT , 

UFF02643 

*L)UT,l 





UFFI)?b44 

integer 

3H0t* 


CUUNT 


(1FFD2645 

i ICAl 


UF F , 

UK, 

KDF LC ? 

OFF 0^5 46 


V 

1UNE 



Uf F Dai 64 / 

l : 4 T J G i ^ 

HU L F 




OF Ft)/? 5 46 


REAL K DEL «K OtL 2 

c jmhuim /vector/ 


UFFD2549 
Of F0255a 


. AL i- HA< 11 >, ATARI /5, ii),96TA< 29, 11) ,BH|32| , BLADE I 25) « tT I 32 ) »C l PC.LOf FP2551 

.b(25)«CU(32,ll)*CPCG(<:),CR(3x, 11) ,C SL OPE 132,111 «CUI32 ,11 ), LX ( 12, 11 OFF U2 5 52 
. * • v_X V { 1U .CXNERi 11 > .DA < 1C) ,DELM< 1 1 ),DEPV( 32.11 ) ,DF (20) ,UFL OW< 32 I .FUFFD2553 
•LCWl 32-J , FORM l i. 3 1 , FOUND ( 2C , J, 1C ) ,1 REF ( 25 , 11 1 , 1 I YPE « >5 1 , ME TA L< 2 1 , Ml UJFFD25 5A 
.HoDC 25), MINI 8,cj),MlNR(i3,2SI ,MOUT I 8,2 5 ) ,HOUTR< B ,25 ) ,Nl N( 25 > , NR ADI 20FFD2555 
. 5 ),.,5( 25 ),N SSI 25 )♦ NTC (LSI* NTHI 25) ,NXIT(25) ,Q8APi25,ll> , OFF 01 28) ,PUOFFn2556 
.1 1*, 11),. <C 32. 11) ,RAU( 8,25) » R APR (8,25) ,KCUR VEU2 ,1 1 i , KHl i i ) , K I NT < 1 1 UFF0255 7 
. I.KPMI D.RSI 32 ) , RSLC Pc ( - - , 1 1 1 , KJL E ( 2 5 I , SHAPE U‘ I , S IXTYS ( 25 ) ,SUC R , 70FF02558 
.5l,SCR(d,2il,SS(fe,25l,SSR<8,25l,TE3MCIll),rHI8,25) ,THC 13 ,’8) ,THCM OFFU2*-59 

• 2»251»THRL8,25l,TITLE(2f),T0(. ! 2»ll),TSTAT(lll,X(32l IIFFD2F60 

COMMON /SCALAR/ 0FF02561 

• A, AA, A 10 AC, A2O2A0, A 30 2A0, A AO 2A D, A R 05 AO , ANG ,8,68 ,CC .CENT , CM.CMt AN, C0FF02562 
. MEAN P, CM .l.CuRLC, COUNT , CP, CPI 2, CPI 2 ,CP 1 4 , CP 1 5 »CPIt , CP02 »C PM.,, CPUA, CQFF D2563 
. F05. CAMP, CCP.OELFLO.OF ACT, EM At H,EPISON,F AC TN,G, GAMMER, GASK,GJ,GR2, 0FF02564 
.H.HIGH.HlPRES, l, IG, IGCJ , ICO TTP, I P AS S, J , J J, JM, JM1 , JCULE, K, KDEL.KK, L, 0FF02565 
•LAST, LCl,L£V2L»LST,LSTAot,M, MACH, MAXPT,MlNPT,N,NBLAOfc,ND AT A, NL I NFSUFF02566 
•»NSETS,NoPtEO,NTLBtS«NX »NX l , OFF »UK ,PH I » PLOW, tf , R A»R AOl AN, RIJFLO, REF, 0FF02567 
*R<.5TAR,RMACH,S, SOLID, S PE £0,STGP,T, TEKMU, THICK, TIME , TOL AT ,T ULCX , TCL0FFD256S 


CX( I ,J) **Z + CRU »J) **2)*TAM BETA 


I *2 • O/GJ 


.MIN, T3LR.T0NE,V,VMI, YES 
12TA* MAXCl 5,. MOW) 

00 100 I« ISTa, IX 

_ _ IF l I, ST «L$TAGE) CL TC EC 

IF ( hQ TOR < 1 - A ) ) 20,80,10 
.0 00 30 J=1,NL1NS5 

C CALCULATE THE TEMPERATURE AND TANGENTIAL VELOCITY FOP A 

C RLTCK . 

CDII.J)* HP M ( 1 ) * R ( I , J ) -SORT I 

X ll.JlL 

H= 0PM(M*(R( I, J)*CU( I,J) -R( 1-1 ,J)*CU< I-i , J) i 

r- roc i-x,j ) 

Call ENT alp 
JO TO ( I,J )= TS TAT( J ) 

uO rc luo 

SO Lb c C .1 = 2 »NL INE.S 

CALCULATE THE TEMPERATURE AND TANGENTIAL VELOCITY FUR A 

STATOR . 

uU(t,J)s SuRT ( CXI 1 , J ) **1 +CRI l , J ) **2 ) *TAN ( ALPhA 1 1 ,J)) 

- ) T J ( I.J )= TO ( I-i, J) 

F J TC 10.) 

20 LU 9Q J»x.XLINES 

TuII.JI* TO ( I- 1, J ) 

L CONSERVATION UF MOMENTUM IS ASSUMED FOR AN ANNULUS. 


0FF02569 
OFF02570 
0FF02571 
OFFD2572 
CFFD2573 
OFF0257A 
0FF02575 
OFF02576 
OFF02577 
0FF02578 
OFFD257D 
OFF 02 5 80 
0FF025RI 
OFFD25R2 
0FFD2593 
0FF025PA 
0FFU25B5 
OFFD258S 
0FF02* °7 
OFFO’ERU 
0PFU2589 
0FF02590 
0FF02591 
OFFD7592 
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05 / 02/68 


PR1, " EEN SCJURCl STATEMENT - IFNfSI 

’° EUU,J»= R( I- 1. J )*CU( I-1»J)/RJI«J) 

00 i.uhT INUt 
• i-lURN 
thO 


0FF02593 

OFF0259* 

0FFD2596 

OFF02596 
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: F N 


SOURCE 3 r A Tr HE M T 


IFMS) - 


U >/ )c / k d 


>.u rxo r inq prfit c 

W UMGA! / UET [T/ <ITUM 
r. .MCN / FOL L / bUCKET, 


NU* 


U.L ICAl C I <CL“t 


IXTY 


.jFFOltf 94 
OF Fill? 95 
CiFF,Jl:*J9f 
r f FOl H ^>7 
('* FuIP 


- 1 -1 

1/cF. 

JOLLC, 

NACH T 

0FFUIB49 

x - • r u, 

PIN, 

MIKR, 

M(juT , 

OFF 0 1400 

X *41 J ( R 




UFFO1901 

iMEC-TR cLAOE, 


COINT 


U7F0L902 

L\ uICAl. 

LF r . 

OK, 

R OF L c , 

OF F 0 1 903 

* [ J T 4 a i 

10NF 



0FF014G4 


l 0 \ J 9 ' 


Of F0190E 
0FF01906 
UP 7 0 1007 



1 - SP-V Z-U 
<l - :>P-Jt> i-J 
i - SUCTION SURFACE 
- TAdlE IWPUT 
jK= • T K U E * 

»;*j io j*.;tNTjacj 
CALL X'JcKlVlfttKSLOPcI 
jj 1 J = ltNLINc..> 

ALPHA! 4iJ)« 0.0 

>Ta(4, J )= AT AN I kPM N ) *K 1 4 * J ) /C X ! 4 , J ) ) 

L:> TA= 3AXJ( 5 r N«jW ) 

Du >0 1= l ST A,L STAGE 
uU 30 *J = **NHNLS 

Cx ( i t J J ASLOPE ( 1 1 J> 

*** CALCUL A Tfc DLADF PROPERTIES 
\r !4'jrUi<U-'t).t*»0.0) GO TO 44 

VC1AL(:»= SLl.MMR! 1-1,J)«HINK( 1* [-41 1 PIN! 1 1 1-41 ,N1 MI-41 ) 

* c T AL ! i ) - AT AM T AN 1 HcTAL ! 1 1 > /$CrtT( 1.0 *P S LOPE ( I - 1 , J I *»2 > I 
1 1 T AL l _ j ■» SLINC!R(I, J I t MOUTP 1 1,1-41 •MCum. 1-4) f NX ITU-411 
«r.TAL(2) = A TAM TANHLTAL! 2 I ) /SQ3T1 l.C ♦ RSIOPEU# 

4= < ( X « J ) * H( I- 1, J) 


OFFD1926 
OF Fp 1 9 2 7 
OF F 0 19 23 
OFF 019 29 
0FFD19 30 
OF FD 19 31 
OF F 019 32 
OFF 01 9 3 3 
OF F 019 34 
OFF 0 1 9 35 
OFFO 1935 
JF F 0 1 9 3 7 
OFF 01935 
OFFO 1 9 39 
(JFF01940 
0FF0i'^4l 
UFF J1942 
OFF 0194 3 
OFF 019 44 
0FFD1945 
OFF01946 
OFFO 19 47 
ntrni oau 
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EFN 


SUURCL STATEMENT 


IFMS) 




P k ■: . 


>'KH* ln.idl + R$<1-1> - AI/<KS(1 » ♦RS * I- » l-KH(II-KHfl-ll) 

-» = A*.- 

>.l. Ii> iUN -l A,SOrM l,l-4» ,SuCl,I-4),NSU-4») 
i HICk= SCI ,>iF ( At IHCR ( 1, l-«M, THC( 1*1-41 .NTCU-AM 

*** CALC UL A T L AdSILUTL VtLOCITY 

V- CM I - + CJ( I-i, J )**2 + CA< 1-1 , 

d.fi At i- : , j i 

I' ( I.CI.C.CI GO TO 1 i 3 

i-'i l-= ALPHAt [- i,J ) 

>- V 

jl 1C Li. 

*** CALCULATE KlLAIIVE VELOCITY 

13 CXI I- L»J )**/ M*PMtN»*kII-l, J) -CUI 1-1 , J) I **?. ♦CRM-1, J)**? 

CCKPUTE RELATIVE *ACH NOMJER 

1 . r= -v/;j 

i= TC< I- .,J ) 

PALL 5NTALP 
CALL GAR 

!• MACH= SORT ( S/(«,32*SA»i>*iZM*TSlA T( J ))) 

*** CALCdL A 1 i REFERENCE INCIDENCE 
R:tl* M T AL( 1) - RETAKE) 
loC = M ET FLiu ( I — A | 

C .REC= CURECEI TH ICKI*FGR*( I-AJ 
KJFL= KQtL_ I THICK! *S HA Pt ( 1-4 ) 

RlEl = K 0 EL /RADIAN 
G*J T U ( <_ 0 C * iOC 9 ^ xUf ^0 ) i IGC 
tOJ i*.£FU-4, Jl= $P 3t( CCREC* PHI I 

If < RULE! I- 4) •cU.l.OR .KUIE U-4) .fc 0.3 | GO TO 250 
if ( $ I XT Y5 ( 1-4)) GO TC 1C5 
rZF- R2F. 1 . CkrtACHt HI GH) 

GO TU 2 10 

4.t:5 RLF= R2F2CP <ACH»HGM> 

tiC 1R2F< 1-4, J)= IrtEFI I-4 f J) +REF 

oil TO 250 
22G CONTINUE 

KA= SLIN 2 U,RADRll*I- 4 ),RAD(IiI- 4 )iNRADU- 4 n 
IF tiGCj«LC«4) G C TO £40 

I A£F( 1-4* J>= 2.0*ATAN( (TAMPH1*0. 2*5) -2* 0*PA*TH 1 CK *COS ( PHI *0 • 5 ) 
X * THICK )✓( I • u +2*0*RA*THICK*SIN<PHI*0*5) M 
X -PHI*0.5 

oJ TO 7:5v- 

^0 lKtF(I-4,Ji= KA 
*.:>:) CONTINUE 

A.\G* ^tTAL(l) ♦IREFCI-4,J) 

i:* tsixTrst i^n go tl 255 

r AC = FACTii(ANi) 

GJ TO 257 

f ACTM= FACTM21 ANC) 

2^7 CONTINUE 

AA= KCEL^DE V I8( ANG*$OLID) 


0FF01949 

IFF 01 9 50 

OF FO 19 31 

OFFl) 19 5? 

0FF0T953 

HFF0195 * 

OFFl) 19 5 5 

0FFD195t> 

OFFUI^57 

0FF019S8 

UFFU19S9 

fJFFOiVM 

OFF 01961 

0FFDI962 

OFFL) 196 3 

0FFD1964 

GFF019 6b 

0FFDI965 

0FF01967 

0FFD1943 

0FFD1969 

OFFD1970 

0FFDI971 

0FF01 972 

OFFD1973 

OFFOI974 

0FF01975 

0FF0I976 

0FF019 77 

OFFD1978 

OFF 01 9 79 

0FFD1980 

0FF01981 

OFF 01982 

OFF01983 

0FFD1984 

OFF01985 

OFF 0198o 

OFFOI 937 

0FFD1983 

OFF 01 9 89 

0FF01990 

0FFDL99 1 

OFF 0199? 

0FFD1993 

OFFOI 994 

0FFFU995 

OF FO 1996 

OFFOI 99 7 

0FF0199B 

OFFOI 999 

OF F 02000 

0FFD2001 

0FF02002 

OFFD2003 

OFF02004 
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PR ? 


EFN 


SOURCE STATE M6NT 


I FN < i) 


05/02/6* 


X H I*F AC IM/SCJL lL'**f-XPLM ANG) 

JJ= RULE! I- '♦ ) 

0 TU ( 2'iC* 260, >70,260), JJ 

AA= AA ♦ ! IREF< 1-4, J I - SP36 (CQREC ? PHI) )*SLOPE!ANGfSCLlO) 

IF UJ,-,*2> fir TU 7 90 
_/C IF (CIRCLE! 1-4) ) GO TC 280 
AA~ OEiiJLc! KMA(,H f hlGH) +AA 

(jl Tu *-0 

,.HC A A- CEKUL 1( R MACH fH I GH ) >AA 
€ ' 1 0 C jN T IN U t 

PHI ♦ IRE F ( 1-4, J) -AA 
IF (R0rCM(I-4).Gl*C'0! GU TG 116 

L *** C A LC JL A I E ABSOLUTE GAS FLOW ANGLE 

ALPHAS If JN A*L)E VI t ! ALPHA! I- 1 « J ) -METAL(l) -I RbF ( I -4, J) ) /A ) 

X +METAL! 2 > * A A 

C *** CALCULATE *Hl H L ( TANGE NT I AU VELOCITY (NEW ♦ OLJ ) / 2 

cGUfJN SGR T ! CX( I , J ) ** 2 *CRI l, J ) *+2 > + TAM ALPHA (t f J>) 

C *** COMPUTE RELATIVE FLOW ANGLE 

BETAlItJI* ATANI (KPMU )*R(l f Jl -C U ( I , J )) / SQR T < CX!I f J)**2 
X +CR (I.J)**2)) 

GU TG SO 

lio CONTINUE 

L. *** COMPUTE RLLATIVi: GAS FLOW ANGLE 

Ll 1A(I,J)= OEVK (BcTA( 1-1, J) -M3 TALI l I -IUlF U -4, J > I /A >* A 
X ♦HETAU 2 > + AA 

L *** COMPUTE TANGENTIAL VCLOCITY 

CJtlfJN RPM(1)*R(I»J) - SQR T ( CX(I,J)**2 +CR! I « J) ♦♦2 ) *T AM Brf A 

X (Ifj)) 

C *** CALCULATE ABSOLUTE GAS FLOW ANGLE 

SURT! CX!IfJM*2 ♦CR(ItJM*2) 

ALPHA! if J N ATANICUI ItJI/S) 

GO TO 30 

C *♦* SET ANGLES *HERL THERE IS NO BLADE 

44 i\EFl l-4» J] =0 

CUC I*J I- CU( I- if JI*k!l-l.JI/RII,JI 
S = SORT! CX ( I * J ) **2 +CK( I ♦ J ) **2 ) 

ALPHA! I* J )* ATAN (CU! I* JI/SI 

dET A! !• J ) 3 A T AN( !R PM ( 1 )*R ( I « J) -C U< 1 1 J )) /SQRT ( CX(I,JI**2 

X +CRI 

50 CUNT IN U£ 

00 SO I* I ST A # LST AGE 
DU SO J*l,NLINfc6 


OFFD7005 
OF F 02006 
OFF 02007 
3FFD200B 
OFF 0200 A 
0FF02UH) 
OFF 020 1 i 
OFF 020 \ 2 
OFF 0201 1 
OF F 020 14 
UFF02015 
OFFO2015 
0FF02017 
0FF0201B 
OFFD2019 
OFF 020 70 
OFF 020 71 
0FFD2027 
QFF02023 
0FFO2024 
OFFO2025 
OFFD20 26 
OFF D2027 
Uf FO2028 
OF FO 20 29 
0FFD2030 
OFFO203L 
0FFD2032 
DFFD2033 
OFFO2034 
0FF020 35 
(JFFO20 36 
0FF070 37 
OFF 020 3H 
OFFD2039 
QFF02040 
OFF02041 
0FF02042 
OF FD 20 43 
OFFD2044 
OFFD2045 
OFF02046 
CFF020 47 
OFF D2048 
0FF02049 
0FFD20 50 
OF F0?0 5 1 
OFF 020 52 
GFFD2053 
0FFD7054 
UFFD2055 
OFF 020 56 
0FFD2057 
0FF02058 
OFF 07059 
DFF02060 


v 
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° R ?. 


EFN 


SOURCE STATEMENT 


I F M S l 




\ 


It ( KG T L •< ( I - • G T • C • G ) GU Tu 70 

r/ i < r f j j= Tut i-i, j) 

.■/' ;«.• 

*** CALC OLA Tt RUIOR QUANTITIES 

/e K INK J > = I RP -UN )♦ <K < 1 1 J )*cut I » J > -MI -1 T J)*CU( 1-1 9 J ) >/GJ) *2.0 
H- X IN T C J ) 

I* fuC I- i ,J ) 

‘.Ml lNTALP 

i < AfJSU TSTATIJ I -T0< I, JM/TOU* J1 I.GT.TGLK) fK* . FA LS c. 

TO I I*J )= TSTAM J ) 

0 CuOlNUF 

C *** ScT Exll wG A NT 1 T I ~ $ 

u t; TURN 

r Nl 


0FFO?061 
OFF 02062 
OFFD2063 
(3FF0206A 
OF F 020 S5 
OFF D20 ^>6 
UFF02Q67 
0FF02068 
OFFD2069 
OFFO2Q70 
Of F0207L 
0FF02O7? 
0FFD2O73 
0FF0207A 
Of F02075 
0FFD2076 
0FF02U77 
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PSIOc. 


- EFN 


SOURCE STATEMENT 


IFN(S) - 


i)VO?/fci 


FilNCTUM P SIDE! ACH ) 
-uAL MMJt 

CL. K AG.N /FULL/ BUCKET 
LOGICAL URCLCf SIXTY5 
IR EF, 


r*. cAL 
X heTAL . 
X MOJTR 
INiEbcR 
AM tGtrt 


MIN, 


riLAOEt 

RULE 


JOULE , 
MINR, 

COUNT 


MACH , 
MUUf , 


REAL KOEL ,<0EL 2 
COMMON /VECTOR/ 


UFFD3.494 
OFFD1495 
OFF 01 A 96 
OFF01497 
0FFQI493 
OFF 01 A 99 
OFF 0 1 5 03 
0FF01501 
OF F 0 1 502 
Of F01503 
0FF015U4 


, ALPHA( 29, 11 1 , ATARI 25. 1 1 1 1 BET A( 29, 1 11 • BH( 32 ) ,81AL)E< 25), ST < J 2 ) , 0 I «CL OF F 01 505 
*E(2>),C0( 32 , 1 1 ) » CPCUC 6 > , CR ( 32. 1 1 1 « C SLOPE (32,11) ,CU (32, 11 ) , CX ( 3 2, 1 1 Of FO 1 506 

• ) , LX M< 1 1 ) ,C XNL H < 11), DA (101 .DEL M( 11 ), OEP V < 3 2 , l l ) ,DF (20) .OFLOM 3 ?. ) , F OFF 0 1 50 7 
. LUr» ( 32 ) • FOR M( 23 ) .FOUND < 20, 3, 10 1 , I REF I 25 , 1 1 ) , l TYPE < 25 ) , ME TA LI 2 ) , MfcT 0FFD1508 

• HUU ( 25 ) • M IN ( 8 , 25 J • MINR ( 8, 25) ,MOUT( 8,2 5) ,MOUTR48 ,25 ) , NI N ( 25) , NR A0< 2 OFF 01 509 

.51, 45 ( 25) ,NSS( 25 ),NTC( 25 J , NTH( 25) ,NX1 T(26) , QBAR (25 ill) #UFFU(2J ) , PGGFFD1510 
.{->2, 11), RI32, 11) ,RAD( 8,2 5) ,R ADK ( 8, 25) .RCURVE ( 32 , 11 ) »RH( 3 2) , R l N M 1 1 0FF01 5 1 1 
* ),RPM4 1) ,KS< 31 ) , R5L0PE ( 32 , 11 ), RULE ( 25 ) , SHAPE 4 25 ) , S I XTY5 ( 25 ) , $U< 8 , 20FFD1 5 12 
•5) , SGR ( 8 , 25 ) , SS ( E , 25) , SSR 4 8,25) , TERMC ( 11 ) , TH ( 8 , 25 ) ,THC4 8 ,25) ,THCR( 0FF01513 
. S,25),THR(6,25), T I TLE ( 36 ), TO ( 3 2 , 1 1 ), T STATU 1 >, X < 32 ) 0FFD151A 

CUHMCN /SCALAR/ 0FFO1515 

• A, AA, A lu AO, A202A0, A 3Q 3A0 , A 404A 0, A 5C5 A C, ANG , 8 , BE ,CC .CENT , CM,C ME AN.COFFD1516 

• ME ANP* CM2 ,COR EC , COUNT , CP.CP I 2, CP I 3 ,CP I A ,CP l5»CPI6,CP02,CPG3,CP0‘t,C0FFD!517 
.P JR, CaMP, IX P, DEL FLl, UF ACT, EMACH.FPI SON, FAC TM,G,GA*MER,GASK,GJ, GR2, UFF01513 

• H,H1GH,H I PRES, I , IG, IGU.IOUTTR, t PA S S, J , JJ, JM. JM1 .JOULE, K, KD EL ,KK , L, OFF 015 19 

• LAST,LC1 , LEVEL, L ST, L^TAGt.M, MACH, MAXPT,MINPT,N, NBLAOE.NO AT A, NL I NtS OF FO 1520 
., NS tT S , NSPE EC, NTLbES, NX, NX 1, OF , OK ,PH I , PLOW.Q ,R A,R 4QI AN, ROFLO, KEF, OFFD1521 

• R t S T AR » R M AC H , S , SCL ID , S PE ED , S TOP , T , TER MD, TH ICK , T l ME ,T0LA1 ,T OLCX , T OL OFF 01522 


C.8, 0.85, 0.?, 0.95, i.Oi 


* 00 42 ,.00675, .0107 


.0033 ,.00465, 


.MIN, TULR, TONE.V, VMI.YES 
LuGICAL ML) 

DIMENSION UFFI 12,3,2), ANS l 2 ) , HM(2) 

DIMENSION AC ( 12 > 

DATA AC/ 0.0, 0.6, 0.t5, C. 7, 0.75, 

X 1.05. 1*1 /, HM / 0.1, C.5 /, OFF / 

0.0 ,.0012 , • GO 1 5 » . 0C1 9 ,.00 24 ,.0031 

0 • 0 19b , * 03 ,.G5 , 

O.U , • CO l) 6 , . CO C 7 , • OGC 5 ,.001 ,. 00145 ,. 0022 

.00638, .00 875 , . Cl 346* 

0.0 , .00065, .0008 ,.00105 ,. 001 25, • 00145 ,. 00185 , .00285 ,.0051 , 

.Q0£25, «J3il8 ,.0158 , 

, .CO 115, .0015 ,. 0019 ,.00235, .0029 , .00365 00455, 
,.0118 , 

,.000 7 , .OCG75 *. 00C85, • C01 15 ,. 001 95 , .00295 ,.0C415, 
, • GO 5 9 , 

,.00105, .001 25, .0C145,. 001 85,. 002 85 ,.00 51 , 
/ 


0.0 , . CO 09 

• 0058 5, * 00 8 

0.3 , • CC 06 

• DO 55 5, . C074 

0.0 , .00065, . COGS 

.00825^ . 0118 ,.0158 


JQ- l 

GO TU 5 
cNTRY 
JD= 2 
K'J* 0 

ML* .FALSE . 
A=M ACH 
10* 1 


M SIDEl ACH) 


0FFD1523 

OFF D 15 24 

OFF 0 1525 

OF F D 1 5 2 6 

0FF01527 

OFFD1528 

OFFD1529 

0FFD1530 

0FF0153I 

UFFD1532 

OFF015 33 

0FFP1534 

OFF Dl 5 35 

OFFD1536 

OF F D 1 5 3 7 

CFF01533 

0FF01539 

OFF 015 40 

Of FO l 541 

OFFD1542 

0FF01543. 

QFF01544 

OFF01545 

0FFD1546 

0FF01547 

QFF01548 
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P^lCE. - tf N SOURCE STATEMENT - IFMSI - 

IP < Cc >11 .G1 . 2 )) 10= * 

J f .j- KO ♦ : 

if ( A.GT *AC + 1 )• ANC.Kg.LT, 11 ) GO TO 10 

L - U 

o *10= . MOT *M I 0 
l = l + : 

AN!.(LI= ( OF F ( KG+ 1 « L Ot JO ) -OFF< KQ, iy f ucn*u -AC<K0))/UC(KU+1) 

X -U<K'*I> F'JFF (KUt 1C * JO i 
1 J* 10*1 

if (MIO) GO T(J ^0 

,>SJ ^ E “ <£*5*(ANS<2) -ANS ( 1 ) ) *( CENT -HM1Q -21) ♦ ANSI 1> »/ BUCKET 

JE=^$ICL 
i'tl UKN 
: NC 


0FF01549 
UFFD1550 
GFF01551 
CFFD1552 
OF F 01 5 5 3 
0FFD1 5 5A 
0FF01555 
OFFOl 5 5o 
OFFD1557 
0FF0155? 
OF F 0 1 5 5 9 
0FF0156G 
OF FD ) 56 1 
OFF 01 562 


- LFN SOURCE S TATE MEN T - I FM S) 


0 


F Jf«C T I 1/4 REFK 'MACrt.HlUH) 

1 Ml NS Iun HTAb<5>* RMNTA6 ( 10 ) * CR I TAB! 10 * 5) 

OcOUCEO VARIATION OF AVERAGE ROTOR REFERENCE INCIDENCE AN,, l 

MINUS LCW-SPELl TwO-GIMENS IONAL-CASCAOE-RUU: RFFERENCc 
INCIDENCE ANGLE WITH RELATIVE INLET MACH NUMBER FOR 
OOU^Ll-C IRCULAK-A*C BLAOES. 

Fl.iUU? 2 HH NA^A SR-3C 
SUMMON /SCALAR/ *0 ( 3 i ) » KADTAN, QQC12 1) 

J A T ^ H 1 A 6/ • l**3f*5**7f*S/jRMNTA0/*2**3t* i t**3**E>*» 

X » CR I I AB / -2*l,-2*S 

t »■>! »A| *2» 3* - l« 7f*c» 1 • 2t 2*6*3* l*3*4f-2«f-2*f-2*f-l »(>2 »“• 5* 1* 1 * < 
5 4 • 4 * f> * 0 * 5 • , 3*-l*3E*-l* 5 * - i • <♦ 2 *-• B3t«!if2*5*^*59f6*0* S* 3 * o • 9* “ i * * * 
° * 0 • »1 • t * 3*7*5 • R * 7*3°* 7* H * 7* T ,2 * — # 5 * — • 3 1 — • 3 * • 6 * 2 • 32 * ** • ^ *7 • 2 * 3 « 
a „ V *9.0/ 

A=RMACH 
i= h I GH 

a=I INTI LG. *3) HI /Z 
K = M AaO ( M l NO ( K * -i ) * ) I 

AN 5; = SL IKLC AtRMNIAB.CRI FA8( 1*K>* 10) 

ANS2* SL IN; ( A *RMNTAd*CRl MB< l,K«-ll *10) 

10 w E Fi* (ANSI + (ANS^-ANuil/(HTAU(K^i)-HTA6(K))*(0-HTABlK) ))/«A01 
RETURN 


\ 
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0 ^ 02/68 

R':F 2 . - 0OU8C'. STATEMENT - IFMal - 

F u.'/t T I ON 82F2«i *ACH,HiGH) CFFOl 7 f S 

CtCUCEO 1 / Ak I AT ION OF AVERAGE ROTOR REFERENCE INCIOfcNCt ANI.lt C1FFO1780 
MI-IUS L -W- .Pllu T*U-DIMENSIC)NAL-CASCADE-K'Jte REFF PENCE CfE01791 

iNCIdENCfe ANGLE rfllh PELAT1VE INLET M.'CH NUMBER FUR NACA OFFU1732 

•il -I A .0 )-Z ERltS uLaOES. OFF01733 

FIGURE 201A NAaA SF-Jfc OFFD178A 

El» = Nai.)lM :iT«3| M,CI :) 0FF017S5 

•’.i.^MIjN /StA^A*/ UillHl), RADIAN, CCU21) 0FF01786 

: AT A HT A 3 » C /.1». 3, . 5,. 7, .9,-2.5,-L.o,-i.0.0.2 »i. !» / OFFO1707 

Ff.'« SL INEIhiGh,HIAb,C,5)/RADIAN OFFOI780 

Tl-TUk-; OF FO 178 7 

Ll ,U OFFD179U 



KSTA'. - FFN SOURCc STATEMENT - IFMS) 


u S / 1 ) Z / 6 *i 


!> Jt KCUIINE RSTART 


I )F F D l 2 r *6 
OFFD) .2*7 


*** CALC tJLATE S EQUAL AREA ESTIMATE OF STRcAMLI NE POSITION rjFri>U:8b 

(IFF 01 2 59 


L JO I CAL CKCLE, SIXTY5 


REAL 

IklT, 

joute, 

MACH* 

it 1 AL » 

i*!*. ♦ 

*INR f 

mc ut ♦ 

1 R 




1 .4 T LC- iR p LA 


C JUNT 


l l- b 1 C AL 

CF F» 

OK* 

RDF LO 

r i:STA*, 

TUNF 



1 \ J c ocK ‘"’'JL b 





A L KOEL ,K JELt 
COMMON /VECTUK/ 


OFFO 1250 
0FFP12M 
OFFDl 2'>< 
UFFD1263 
OF FI) 12 '>4 
0FFD1265 
0FF01266 
SFFI)12o7 
0FFD126H 
t tF F 0 1 2 6 9 


ALPHAS'; , 11) ,AT4K( ,.5» ii)»BETA< i.9»U),BH(32l ,8LA0E< 25) ,BT (32) ,C I RCLOFFO.’ 2.70 
• E< 2y)» CO ( 02,11 )»CPCU(fc) »CR 132,11) *C SLOPE (12.11) ,CU <32, 1 1 ) , CX ( 32 , 1 1 OF FO 1 2 7 1 
. ), CAM 11),CXNCW( ID.OAIiO.O EL MI 11), DEPVI32.il) .OF (20) »D FUJW( 3 2 ) »FOFF0 1 2 72 
.LliWl 32 ), FC.<M( 2?) .FUUNU I 20 , J, 10) , IREFI 2.5,11 I , I TYPE I 23 ) , MT TA L I 2 ) .MCI 0FF012 73 
.HOLM 251 ,MIM 8,25 ),MINM 3,2 5) .MOOT I fl , 2 5 I , MUUTRI 8 ,2 5 ) ,NI N( 25 > , NR A0( 2 UFFU12 7*. 
. 5 ) » NS I 25) ,NSS( c5 I.NTCI 25) ,NTH( 2 3) ,NXI T(25) .08ARI25 ,1 1) .OFF 01 lo ) , HODFFD! 2 75 
.(3k, 11), 7 (32, 11) ,RAO (3,25) .RrtDi ( 8, 25) ,KC OR VE ( 3 l ,1 1 ) ,RH ( 3 2) , R INTI l ). 0FFD12 76 
. I ,KPM( ll.PSI 32 ) , R SLOPE ( 3 2, 11 ) » RULE (25 ), SHAPE! 25 1 ,S IXTY5 (25 ) , SOI 8 , l DFF012 7/ 
.5 ) , SOP ( 8. 25 ) , SS( ft, 25) , SSR ( 8, 25) , TtRMC (11),TH(8,25) ,THC(3 ,2 5),THCR( UFFD12 7ft 
. 8 , 25), THRO, 25), TITLE ( ) , TU ( 3 2 , 1 1 ) , T STAT { L 1 ) , X ( 32 > OFF 01 2 79 

vXT'MCN /SCALAR/ Ot-FDl 2 90 

.A, AA.AijAO, A 20 2 AO, A JO jAO, A 40 4AC, A5C5A 0 , ANG ,3 ,88 ,CC , CENT , CM,C M E AN,C0FF0128L 
.MEANP, CM2, COR EC, COUNT, CP, CP l 2,CPI3,CP 14, CP 1 5 ,CP 16, CP02 ,C POO , CPU4, C QFFO 1282 
.P05,OAMP.OCP,OELFLO,fJFACT,EMACH,EPISJN,FACTM,G,GAMMtR,(i»SK,GJ,GR2, CFFD128 3 
.H, HIGH, HI PRES, I, IG ,IGO, I CUTTR, I PASS, J , JJ, JM, JM1 , JOULE , K, KOEL, KK, L , 0FF012 34 
. L AST, L Cl, LEV EL, L ST , L3 T AG E ,M , MACH, HAXP T , MI NPT ,N ,NBL AUE, NO AT A, NL I NEC OFF U 1 285 
.,NScTS,NSPEEJ,NTU3ES,NX,NXl,GFF,GK,PHI,PL0Q,Q,RA,RA0IAN, KOFLO, REF , OFFD 1 2 ft 5 
. REST AR, p M AC H, S, SOL 10, SPEED, S TOP, T, TER MO, THICK, TIME ,T OLAT ,T OLCX , TOL 0FF012 8 7 


.NIN,TQLR,TONE,V, VMI.YES 


DO 10 1=1, NX 

A= IKSUI -RH( I) )*(RS( I) ♦RHU)) 

AA= RSI I>**2 -A*eH(I) 

83= RH( I )** 2 +A*8T( I ) 

COBd-AA 

LO AOl J = i «‘iL INEs 
2HASi= AA + OELM ( J ) *CC 

**•* ERROR TRANSFER 10 A N-.W OATA SET 
IF ( ERASl .LT.O. ) CALL ERROR! 15) 

- J R ( I , J I = SSRTtERASl ) 

J= 1 . . 

CALL XQ£RIV(P»R SLOPE) 

J= NLINES 

CALL XOERI V ( R ,R SLOPE ) 
kC TURN 

..HC 


0FFD128R 
0FF01289 
OFF01290 
0FFD1291 
OFF01292 
OFF D l 2 93 
OFF 01 294 
0FF01295 
0FFD1296 
0FF01297 
0FF01293 
OFF 01 29 9 
0FFD1 300 
OFFDl 301 
0FF0L302 
0FFm303 
0FFD1304 
OFFDl 305 
OFFO1306 
0FF01307 


\ 
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SI. INI 


£FN SCIWF STATEMENT 


IFN(S) 


05/02/68 


FUNCT I UN SL INE (X*X7 ♦ YT *N ) 

STtJA I GH r LINE INTERPOLATION RTUTINF. 

JiMLNSlUN XT( 1 ) » YT ( 1) 

AF (N-l) i, 3, 11 
SL IN E= YT ( 1) 

(>C TC ' 

LU 8 A = 2»N 

ifcx-xmiii u ic, s 

CUM 
I = M 

SLINE-I Y MI )“YT( I-i) )*( X-XT( I-l) l/CXTI I )-XT( I-l) ) + YTU-l ) 

tjU TU s 

CL ANfc = Y T ( I) 

RETURN 


QFF00274 
OF FUO.?75 
0FF00276 
OFF 002 77 
0FFD0278 
OF F 002 1*1 
0FFD0290 
0FFD028 l 
OFF 002 82 
OFF DO 28 3 
OFF 002 84 
QFFD0285 
0FFDO236 
UFFD0287 
0FF00238 
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SLOPt 


tFN 


SOURCE STATEMENT 


IFNI SI 


05/02/63 


F'JMIMN 5L JPEUFG,$UL ID) 

91M*_N5IUN CJEF(6,6),DEG< 6) 

uCIMfUjN /SCALAR/ QU C 8 1 ) « RADIAN, QQQf 2 1) 

LA1A COEF, Ot j / 

X 0.S?O-H*46, -:.G11769, 4.29216^5, 

X -3.45.t948 r f 1.4851443, -0.25894061, 

X 0.99699-4^# - 2. 744969' * 3.'+fb?607 , 

X -d«4t»3’+*:44 • 0.9303332J, -0. i «♦ 3 936 09 , 

X 0.999iU2P3, -2. 5241725, 2.S2V9367, 

X -J. 7215087, 0 .5o2°8 301 • -0 . C77439 5 73 « 

X o. *9 32- r :Qy. -2.170019, 1.9204703, 

x -0.61265/31* O.14S2G60€* -0. 645 82498E-2 , 

X i. 0009304, - 1. 66 30904 • 0. 70910027, 

X 0. 36425013, -C. 270269* 0.090840853, 

X J. 99927569, - 1.1334851, -0. 24 7606 59 , 

X 3. 8294028, -C. 35717499, 0.042019739, 

X 0.0, JJ • G, *♦ C « 0 , 50.0, 60.0, 70.0/ 

A*Ai*G*.9Ai; I^N 
S~ $ 3L I 9 
K~ 0 

tO K=K + 1 

IF ( OE G( K + l ) #L T . A. ANO.K. LT • 51 GU TO 10 

Pi= CU£F(1,K) MCUEF<2*K> +<C0EF<3,KI ♦(C0EF(4,K) 

X MCCEF(5,K) +COEF( 6,K)*S)*S>*S)*S> *S 
P2= CGEF<1,K+1> ♦ ( COF F t 2 * K + 1 ) ♦ <COEF ( 3 ,K + 1 ) * <COEF (4 , K* L I 
X + fCJEH5 , K + i ) ♦CucFtG,K+l)*$) ♦$)*$)*$)♦$ 

3LuPE= ( ? 2-P 1 )* ( A-OEG ( K ) ) / ( DEG < K+ 1 ) -0 EG ( K) ) + P1 

RETURN 

nNC 


OFFO 1630 
0FF01631 
0FF016 32 
oFFui6:n 

OF F 0 1 6 3 4 
OFF 01635 
OFFD1636 
OFFO 16 37 
OFF D 1 630 
OFFO 16 39 
OFF 0 1640 
OFF 0 16 41 
Of F 01642 
OFFO 1643 
OFF U 1 6 44 
OF FD 1645 
QFF01646 
OF F 0 1 6 4 7 
OFFO 1649 
OF FD1 649 
0FFD1650 
OFF D1 65 1 
0FFO1652 
OF F 016 53 
0FFD1654 
OF FOi 655 
0FFO1656 
OFF 01 6 57 
OFF 01 6 5 3 


\ 
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$ L N . - EFN SOURCE SlATFMfNT - IFMSI 


05/0 /6f< 


FUNCTION SLUEE NIS. SOLID) OFF 002 36 

RLFF.A Ei-iCc MINI Mu*- L J S3 — I NC t UENC6— At nil SLOPE FACTOR iXODLlO UFFD0237 

FROF! L Jn-5PFt2-CA3CAl)L DA 1 A F uR NACA 1 5- ( Al 0) - St R li S 61 AJfcS AS !M : R)().- tl 

.juio,<l;.nt ciroulak arcs. off in.; 37 

FIo J -. ■■ 13 3 NAjA S r - 36 Ilf f OO/A'I 

DIPLKSIim* UcH->i J ).StlH UFFUD’4] 

Cu-'MC., /SCAUR/ UM81). PA') IAN, U0t(?H OTFOO^a^ 

■.A 1 A CCiF, So / 0FF00245 

A -0.49J5E ♦'_-l,-(.'.3t3S37.-'Oc-2.-0.1120b0 < il t -A, 0FF00244 

a -0.5555 9 23 22 - 0 , C.75141597E- 3,-0. 536361 50c- 10, 0FFD0246 

X -<.-.44 04*102 5.— 1,-0. 299C86746 -2,0. 18044037E-4, Of F 00245 

> -0. i739714j;-5,C. .>00152786-7,- 3.21705222-9, 0FF00247 

A - 0 . 7 ROY 3o 9 t .-l,-j. ct 679 7153-2,0. 04371 1936-4, -JFF002'»a 

A -u. 3-iS, 6 4 »4 :>j, C. o9i 121 .-3L- 7,- 3. 474=4 201 ---f, 0FFU0249 

A -0.3305 5 70 7c- 1,-0 .1266957s- 2,-0. 13t>98 c 6G-4 , OFF 00 3 50 

x -o. 10o2e 50 3 :-5, C. 24044? 15c- 7,-0. 2251 50816-9 , 0FFD0251 

a -(.. 30 WSt? 5E- i» — 3.4 , 753C5oE-- , 0. 171 5t 36 3c-4 , U6F002R ’ 

a -U. 255364173-5. C.51S0.;073L- 7,-0. 39190034* ; -9, OFF00253 

X -0. 24 796 7c- 1,-0 .226055096 -3, -U. 23 66257 3 F-4, OFF00254 

A -o. 4200 633 9i-6, C. 87044 7to2t- 8,-0. 1048852 76-9 , QFF00255 

X -o. 200892392- 1, C. 176161 795-3,-0.232135236-4. 0FF00256 

X -0. 41501 ;3 31-6, C. oC 1035 746- 6,-0. 72 904324E-1 0, HFF00257 

X -O.15ZcCC-E-:,0.294C809iE-3,-0.2fc62647dt-4, (IFF00258 

A 0. 39-» 9c23j t-o,- 0. 13 30 69. >2 c- 7, 0, 64 930 345c- 10, OFFOU259 

X -0. 10 160 3a 3--1, 0.170 824616- 3,-0. 152 647516-4, UFFD0260 

X 0. 40024(132-6, -C. i73620 ‘’4c-7, 0. 964145196-10, 0FFD0261 

X 0.4, 0.6, 0.6, 1.0, 1.2, 1.4, 1.6, 1.8/ 0FF00262 

S0U=SGLK OFFD0263 

A= S * R 4 0 1 A N 0FFD0264 

il = M AXO I l.MIN J(8, INTI « ,0*SOI)|-1) ) OFF DO? 65 

E i = CU E F ( i.,14 I ♦!CCCF(2,X) + ('.'J6F(3,K)4(CuEFI't,K)4CCULrC5,M ♦COEF ( 6, K ) OF D02 66 
X » A) * A) * A ) * A I * A 0FFD0267 

E2=C0£H 1,K »i ) HCQEFI2,K+1I 4- ( CO£F ( 3 ,«♦ 1 1 ♦ (COEF ( 4,K+i ) 0FF00268 

x 4 ( C’O tF { 5» K ♦ 1 1 4C0EFI t.K + l )*A) *A)*A) *A» *4 0FF002o9 

SLOPE N= IP 2- 211*1 SULi- SC <K))*5.0 4-PI 0FFD0270 

RETURN 0FFD0271 

t«2 OFF 002 7 2 


B-67 


i TATt- Hf N r - tFM r » 


J ViV/'. ‘i 


FUNC f I 'N 
U .i» It Al 


Sf'jftJWC ) 
CIPCLt, SIXTY5 


.< AL 

IF LF 9 

JOULE t 

MACH 9 

'I r. 1 A L » 

MIN, 

ilNR, 

muu r 9 

*C JT < 




l"- f rC.-R 


Count 


r. . U i C fi*L 

>f F, 

ok , 

R IF L L 

' L j T A r* f 

rUNF 



i man Rots 





• A,. KOEL »K!)tL 2 

L.iH.IC’N /VCCf‘.'-!/ 
» ALPHA! '.'i, U ) . c.ra 


•> = S fc T AL < i) ♦ O.'Jl 
UU 20 K=l,25 

3?JJ- COK EC*CA’ 4 SLk ( S * SCL 1 1? I «-PHl*SLUPE NISt^LIMI 
lETALll) i-^Pit 

I;- IA0S( S-r: I .LE.C.01G1 I WFTUP.N 

3= b 

LALL bPPCR ( »> 
jl T LJ ’0 

'..iL 


OF F del 2 HO 

’iFFfWrt * 
of fiw ;*<♦ 
OFF022H1 • 
■JFFO^?^ 
OFFD/V 37 
< IF F 0? 2 H 3 
0FFU2^H9 
OFFO/ '90 
l3 ,l IKCI OFF )72*n 
:x( * 2 , UQFFO'292 
;:w( ,<■> f r OFFrs;^^? 

l<2 > 9MHTUFFU2294 

3 t MR AD { ?0FF0^29S 
„( 2 -i I , FiJUFFl)2296 
,KANT( i 1 OFF D229 7 
) v SC( 2GFFfM793 
d) « 7HUM UFF02299 
UFFD2 300 
CFFD? jOI 
»CMe AN, C OFF 0? 3 32 
3,CP04,C0FF02)03 
f 0J, 0K2t OFF 0230* 
LLfKKtl , OF Ff);? 3 0*: 
At NL I NFS Of F 02 305 
FLU, Rt r , OFF 03307 
OLCXt TUL0FF0730B 
OF F 02309 
OFFD2MO 
HFF02UI 
0FF02312 
OFF 073 13 
OFFD23l<* 
OFF 023 15 
0FF07316 
0FFO23I7 
0FF02318 
OFFD2319 
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sr<*. 


- FFN 


3CUP.C1 STATE MHNT - IFN<S) - 


05/02/68 


iJfjKt.'JT Mt STRIAE 


OFF 01792 
OrFD1793 


*** COMPUTES 

AXIAL 

VELCCI TY 

01 STRI eiiTlONS 

WHICH SAT! SKY 

OFF017?* 

CONTINUITY AND 

L-<CAT[ S 

STREAM!. INE POSITIONS 

OFFOl y-js 






0FFD1796 

L .( ICAL YE S 





0FF01797 

Lt L ICAL CIRCLE, 

SIXTY5 



OFF 01 7 9R 

i; E AL 

1KEF, 


JOULE, 

MACH, 

OFF 01799 

X M f 1 AL , 

MIN, 


MINK, 

MOUT , 

GFF01800 

X MCUTR 





OFF D1 801 

iHl EGER BLADE, 



COUNT 


OFFD1802 

LOGICAL 

r Ff , 


OK, 

RDFLG, 

OF FO 180 3 

A l i. STAR, 

ICJNE 




UFF01804 


INTEGER RUL~ OFF 01 AOS 

K l)5L ,K DcL 2 DFFD1806 

LjKMCN /VECTOR/ OF F 0 1 8 0 7 

. ALFHA( 2?, 11 ) , ATA*( 2 5, 1 11 , 6LT«< 29, 11) , BH< 32) , BLADE! 25) , BT <3 21 ,CIRCL OFF L)1 8 08 

• c( ;i),CO< 3?f i 1 ) , CPCU< t ),Ck< 32, 11 > ,CSLOPE< 32,11) ,CU <32,11 > , CX < 32 t 1 l OFF 01 809 

• ) f f aM i 1 ) ,C X N L w ( AUfOAC 1C) ,0ELM<11 ) , DEP V< 3 2 , 1 1 > ,DF <201 ,OFLOW< 3 2 ) , F OFF DIP 10 

• L ’JM 32 ) , FCR M < 25) , FOUND < 2C, 2, 10 > , I R tF < Z 5 , 1 1 ) , I T YPE < 25) , HE T A L < 2 I , Ml T 0FFD16 1 i 

• HOL< *51 .MINI 8,25 ),MINR( 8,25) »MOUT < 8,2 5) , MOUTRC 8 *25 ) ,NI N < 25 I , NR ADC 2 OFF DIB 12 

• t ) » N$( 2 5 ) ,NSS< 25 ) ,NTC < 25 ),NTH( 25) , NXI T( 25) ,OBAR <25 , 11 ) , OFFD < 25 ) *P00FFD18 13 

• < 3 2, li )tK(32t 11) ,KAD<€,25) , R ADR ( 8 ,25) , HOUR Vc (32,1 1 ) ,RH ( 3 2) , RINT < 1 1 0FFD1814 
• J * PPM 1) , PS < 32) , R SLOPE < 32, 11 ) , RULE <25 ) , SNA PE <25 ) ,SIXTY5 < 25 ) ,SU(B, 2 0FFD1315 

,SOk< 8,25),SS( *, b ) . SSK 4 8,23) , TERMC 111) , TH<8 ,25 ) ,THC < 8 ,2 5 ) , THCR( 0FF018L6 

• 3, 25 ) , THR <8, 25 > , II TLt C 3 A ) , TO (32 ,11 ) , T $TAT< 1 1 ) , X ( 32 ) GFFD1817 

COMMON /SC AL Ak/ OFF01818 

. A, AA, A 10 AO, A 20 2 AO, A 30 3 A 0, A4CI 4A0 , A505A0, ANG,B,BB ,CC ,CENT , CM, C ME AN, C OF FQ1 8 19 

• Mt/Wp, 0M2,C0REC, COUNT »CP,CPI2»CPI 3 ,CP I 4,CPI 5 ,CP1 6 , CP02 , C P03.CP04 » C QFFD1 E 20 
. PU5,CAMP,DCP,0ELPLU,DFACT, EM AC H, EPI SON ,FAC TM ,G ,GAM Mt£R,GA$K ,GJ»GR2, OFFD 18 21 

• H, HIGH, HI PR if S, l , IG, ICO, 1 OUTTR, I P ASS, J , JJ , JM, JH1 , JOULE , K, KDEt ,KK, L, OFF DIB 22 
•LAST.LCi .LEVEL, L ST, L STAGE, M, MACH, MAXPT, MI NPT , N ,N6L ADE, NO AT A, NL INES OFF D1823 
. .NSETSt NSPEtD,NTU3ES,NX , NXI, OFF, OK, PHI ,PLOW,Q,RA,R AOIAN, ROFLO* REF, OFF 0182* 

^ EEti *STOP, T, TERMD, THI CK, T I ME ,TGLAT ST QLCX , T OL OFF 018 25 

0FF01826 
OFF 01 8 27 
0FFD182B 
OFFD 18 29 
0FFD1830 
OFFD1831 
0FF01832 
OFFOl 8 33 
0FFD1834 
OF F U 1 8 3 5 
0FF0I836 
OFFDI837 
OFF01833 
OFFD 18 39 
OF F 01 8 40 
OF F D 1 841 
OFF U1842 
OFF 01 8 43 
OFF 01 844 
OFFD 1845 
0FFD1846 


•MIN, TOLR, TONE, V.VMl, YES 
C I MENS ION TERMU< lD.TERMlCll ) 

C I MENS ION T fcKMA( 11 ) 

C M EAN=CX ( I, JM) 

*** COMPUTE VALUES OF C XM , R 0 STAG, A NO TERMA, < CU* *2+CR**2 ) 

DU 150 J= 1, NL INE S 

CXM J) = CXI I , J ) / CMEAN 

1 A( J ) = CU < 1, JI**2+CK< 1, J)**2 

*+♦ START OF LOUP UN CM CONVERGENCE 

JM 

h* MCMEAN**2 >T ERMA ( JM) )/GJ 
I- T0< 1, JM) 

CALL ENT ALP 
CALL GAM 

VM1* Gk2*GAMMER*TSTAT< JH) 
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5TP -. 


..-EN sUURCE STATEMENT - I FN ( S I 


• ) 2 / 02/63 


r EwPU< TRANSFER TO A NEW TATA SET 

if (VMI.lT.O.I CALL errorubi 
v* = S-IRTIVNI) 

»S3 IF l CME AN .L c • V3 1 ) GO Tf 2C? 

1 CALL ERRf’Pl 21 
«1m5 CO 2 60 J = 1» NL 1NE S 

S'- — t T iR M A{ J I +C *( If J 1**2) /'jj 

r = tui r, j * 

•.ALL ENT ALP 

E^Vt l,J I* CXMl J )*PL( I ,J »*EXP( ( THERM31 IS TATUM -THERM31 Tl )/0(.P) 
X /TSTA M JI/GASR 

2 iO C .T INIJF 


1FF01847 
•1FF018W 
0FF018 A9 
0FF01 850 
1FF01851 
•JL F (J l o 5 i 
uFFUS 853 
0FF01H5A 
OFF01855 
(IFFD1 85e> 
0FF01857 
LIFF01858 
OF F 0 1 8 5 9 
nFF0lB60 


L 

L 




SOU 


2:5 0 


505. 


*** C AlC'JL A ft t NT E GK Ac OF RHU*CXH*rt VS. R FROM HUB TO T 
(TOT INTI, AND NEW VALUE OF CMEAN 

CALL IN T c L ; ( JtFVfll 

TOT I.NT=K INTI. NL INtlj l-P INTI1I 

•i= TOTINT * 0.28 2X85 * CMfcAN 

3= AM IN1( 1 .0 2*F LOW l I I f AMAXll 0. 98PF LO W ( I I , 8 M 

CMfcANP* CMEAN*FL0WU)/8 

*** GKECX CONVERGENCE OF CM 


QEPV ( L,J )=( INTEGRAL RH0*CXM*R VS. R FROM RH TO Rl J) 


IP, 0FFD1B61 

OFFD166? 
0FF018F3 
0FF0186<* 
OFFOIB65 
0FF01866 
OFF 01867 
OF F 0 1 8 6 8 
OFF01869 
UFF0X8 /O 
OFF01871 
0FF01872 
l/TGTINT 0FF01873 
0FF0187A 


700 


TEPMCl 1) = 0.0 
T6P ACINL INES)= 1.0 
TcFMAl 11= Rl I, 1) 

T Ei'.NAl NL INES )= RUfNLlNESI 
CO 350 J = 2,NTU(3ES 

TEFMCIJM T 6k MCI J- 1) +0AIJ-1) / TOT INT 
T ui"MA( J ) - R ( 1 , J ) 

IF I ABSlTB<NCU)-OtLMUn.bT.0.005) YES= .TRUE. 

00 505 J = 4,NTUQES 

«|I,J)= K(IfJ) HSLINEIQELNI J> , TERMC, TERMA.NLINESI -RlItJM/OAMP 

*** CALCULATE VALUtS CF CX AT NEW STREAMLINE RADII 

CX-l l»Jl? .CXM l J JACMEANP 
CXI £ , 1 »= CXM< 1 )*CMcANP 
LX< I,NL INES )= CXMTNLiNrSI*CMEANP 

i‘ E T UKN 
ENC 


0FF01875 
0FF01876 
OF F 0 1 8 7 7 
0FF01878 
0FFD18 79 
0FF0I880 
0FF01881 
0FFD1882 
0FF01883 
0FF0188A 
0FF01885 
0FF01886 
0FF01887 
OFFO 1888 
0FF01889 
OFF 01 8 90 
OF F D 1 8 9 1 
OFFO 1892 


\ 
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05/0 2/65 


THi 

. - EFN 

SCHJKCh STA TFMFNT 

- IFN(S) - 


FcJNC T lUN 

THERMl(Z) 



0FF00638 

L blCAL 

CIRCLE, SIXTY5 



OFF0063 1 

At 

IRfcF, 

JOULE* 

MACH , 

Of F 00640 

X f^ETAL, 

MIN, 

MiNR, 

Mour , 

CjFH>0641 

A MUUTR 




0FF00642 

IN IFGFR 

BLADE, 

COUNT 


GFF00643 

t 3o I CAL 

OFF, 

OK, 

KOFIC, 

CFF0G644 

A r r > T A ►*. « 

TCNl. 



OF FD064:> 


INTEGER RULE 0FFD06A5 

REAL KDEL ,K DEL 2 0FFD06A7 

i»UMMCN /VECTOR/ OFFD0698 

. ALPhA( 29, 1J. l t ATAR( 2 5, 11 ) ,8ETA( 29, 11) , BHI32) , BLADE ( 25 ) , ET (22) , C 1 RCL UFFU06 A9 
. e(2:>),CU( ?i»ll l,CPCO( 6),CR(32, 1 1 > , CSLOPF ( 32 .1 1 ) ,CU(32,U >,CX( >2, 1) 0FFD0650 
. ).CXM( 11),CXNEW( 11 ),OA< 10) , DEL M( 1 1 I , DEPV ( 3? ,1 1 ) »DF 1201 ,OFLOW( 321 , FOPFOOGN) 
.LCW( 32 1 » FlXMl 251 .FOUND (2C, 3. 10) 1 1 REF I 25, 11 ) t I TYPE C 25 1 , HE TALC 2 1 .NET 0FF00652 
.HOD(25l,MIN(8,2t ),MINR(b,25) ,MOUT 1 8, 25 ) .MUUTRI 8 ,25 1 ,NI N( 25), NR A0(2 OFF 00653 
,5)»NS( 25) ,NS3(25),NTL(?5),NTH( 25) ,NXI T(25) ,OBAP C25 ,11 ) , OFF CM 25 1 , PU0FFD0654 
.(.2.111*8(32,11) ,R AD I 8, 25 1 «kADR (8.25) .PCURVE (32 ,1 1 I ,RHC 3 2) ,RI NT ( U0FF006 55 
. ),PP«( 1)*RS( J2) ,RSLOPE(32, 11 ) , RULF ( 25 ) , SHAPE (251 . S IXTY5 ( 25 I ,S0( 8, 20FF00656 
.5) .SORC0.25 ),SS( 6, 25).SSP (8, 25) , TtRHC ( 1 1 ) . TH(8 ,25 ) ,THC (8 ,25) ,THCR( 0FF00657 
• 3 1 25 ) « THK(8 , 25) , T I TLc ( 36 ) , TO ( 2 ?, 1 1 ) , TSTATI 1 1 1 , X (32 I OFF 006 58 

COMMON /SCALAR/ 0FF00659 

.A, AA, A10AC, A202AC. A3C3AG, A AO AA 0, A 505A0,ANG,B,BB ,CC .CENT , CM, CMEAN, C OF F00660 
. MEAN P, CM2 .CURLC , CUUNT»CP,CPI?,CP13,CPI4,CPI5,CPI6,CP02 . C P03, CP04, C0FFD066 1 
. PG5, DAMP, DCP. OEL FLO, OF ACT , EMACHy E PI SON.F ACTM.G .GAMMER , GASK.G J.GR2, OFF006 62 
. H. HIGH, HI PR ES. 1. 1G, IGO.iCUTTR, 1 PASS, J , JJ, JM, JM1 ,JCULE ,K, KOEL.KK, L. OFF00663 
.LAST .LCl.LEVEL.LST , L STAGE. M. MACH, MAXPT. MI NPT .N.N8LA0E. NOAT A, NL I NFS 0FF0066<* 
. .NSLTS.NSPcLD.NTUeC^.NX.NXl, OFF.OK ,PH I , PLO W,0,KA,R A01AN. ROFLO, REF.0FFD0665 
.RES TAR, ROACH, S.SCL ID, SPEED , STOP, T , TER MO, THICK, TIME ,TOLAT ,T ULCX.TOL OFFD0666 


.MIN, TOLR.TONE.V, VMI.YES 

*** CALCULATES H = INTEGRAL 
GIVEN AS A FIFTH DEGREE 


FROM 0.0 TO 
POLYNOMIAL 


T OF CP DT, WHERE CP 


THFRM1= ( CPCO( i)+(CPI2+(CPI3+(CPIA+(CPI6*CPI6*Z)*2)* 

RETURN 

END 


0FFD0667 
I S 0FF0066H 
0FFD0669 
0FFD0670 
OFF00671 
OFF 006 7 2 
OFFD0673 
OFF 0067^ 
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c 

c 

_.L_ 


T 

* 

- - FN 

SOURCE STATEMENT 

- I f N ( SI 

S 'J b.vUU T I 

fit THE 


. TUP.ZI 


L jI CAL 

CIRCLE 

t j I XT V 5 



•. AC 


iKtF. 

JOULE « 

MACH v 

- : r al ♦ 


MIN * 

MINK, 

MUUT v 






IMbGCR 

bL^OE, 


COUNT 


1. ,'iU\L 


ljFF, 

0 K. f 

RDF l U 

^TA3, 


TCMt 



i v .7 cG.i^ 






C» >/<)?/ a ■ 


PFFh0676 
ijFFOD 6 7 7 
OrFiJOc 7 3 
i iFFth'.h 79 
.)FK)o6rtf) 
; 'i H>D*> 3 i 
QFF0068c! 
OFF DO 6 3 i 
OFF ['07*34 
IJFF006B5 
OFF00696 


- AL K DEL fK Oct Z 

t /VFCTOK/ „ w _ 

.ALPHAS, 11 I t A T API 25, lU.btTAI 2 0,1 II ,6Hl .21 .BLADE! -’ll ,BT 02 I ,C 1 KCLUf F!1«6H7 
2b I. CUI 2 „:, lll.CPCGlM.tKrJt, 111 ,i.SL0PE(32,li) »CU132,ix I.LXI32, il UFf 00688 
, i: ) .CXNER! 11) ,0A! 1C) ,DELM! lll,0EPV!32,in ,DF (20) .ilFLUWl 32 ) , F OFF )’>6 39 

,LCW! 32 ) • FORM l 2b I .FUUNOI 20. 3. 10 1 1 1 KEF ( 2*- • 1 * ) • ITVPfc C 2’5 I . Nr I A L! 2 l , MF T UFF n>6 >0 
»H')C125l»NINI8»25l»MtNR!3,25) ,M0 JT! 8. 25 I , MUUTRI 8 ,2*> I ,NI Nl 25 l * NR AO I 2 UFFi)0b9 1 
,b).NSIZ5l,NSSt..5I.NTCU5).NTH(25l .NXITI25I .OBAKUb.ni ,UFFUl2i> .POUFFOOfcO/ 
.( 32. 11 1, M3 2, 111 ,R*0!8,251,RAuM3,25l .RCUKVE 132 »U I ,RH! >21 , R t NT <11 0FFU069 i 
. I.RPN il»RSI22l,R5L3Pt!3.:»lll»KULEl251» SHAPE 1251 »S I XT V5 ! 25 I , bU! 8 , 2 UFF 0069A 
.5 l, SORI 8, 25 I, SI l a* 251, SSKl 8, 25 1 * TERMC 111 I • TH! 8 ,25 ) .THC I A ,2 5 I , 1 HC R( 0FFU0695 
. i. 25 J, THRO, 32) .TITLE! ,c I , TO (32 , 111 , T STAT! 1 1 1 , X 132 I JFF00696 


COMMON /SCALAR/ 


OFF 0060 7 


j A. AA» A IQALi A.2U 2A0, A JO JAU , A 40 AA 0, A505A0 , ANG ,8 1 BB.CC .CENT . CM.CME AN. C OFF 006 78 
.M^ANP. CM2. CORtC. COUNT , CP. CPI 2.CPI3.CP I A ,CPI5 ,CP 16 , CP02 ,C P03.CPU4, C0FF00699 
.PUb.UAMP.OCP.DELFLU.DFAC T .ENACH.EPISON.FAC Th , 0 .GAM MEK.GA SK.G J, GK2 . 0FFD0700 
.rt.MGH.H IFKeS. I. IG, ICO, 10UTTR. IPASS.J.JJ, JM, JMi, JOULE, K.KDEL.KK.L, OFF 00 701 
,L*Sr,LCl.LEVEL,LST,LSTAGE»M,MACH,MAXPT,MINPT,N,N9LA0E,Ni)AT A, NL I NES OFF 00702 
.,NSETS,N5PE£0»NTU6Ei»NX»NXi,0FF,0K»PHl . PLUM. (J. P A.K A01 AN. ROFLO, REF , OFFDO703 
.RES TAR*R MACH. S, iOL 10 . SPE SD , STOP . T . TER MO. THICK, TIME * TOL AT ,T OLCX.TUL 0FF0070A 
•MIN, TOLR. TONE, V, VMI.YCS 

FI X )-ALCG(X I ♦! AlCAG-H A202AO! A3U3A0*! A40AA0*A5u5A0*XI*X> *X J *X) *X 


i J 


*** SOLVES FOR TOP IN CASK * ALOGIPOVERI* INTEGRAL FROM T 

TU TOP OF (CP/T) or, ^HERE CP IS GIVEN AS A FIFIH UfcCRE i 
POLYNOMIAL. I5EE THEPM1). 

GUMMY* DC P* A LOG 1 POVERI/CPCQ! 1) *F!Z) 

DO 10 JA *1,50 

XA« -5Q0.C* IF! TOPI-OUMMYI 

TuP* TOP+XA 

lAflSLXA/TOPl.LE.TCLRl GO TO 15 
CUNT 1NUE 

*** ERROR TRANSFER TO A NEW DATA SET 


CrLL ERROR! 1 

RETURN 

LNO 


>i 


OFF DO 7 35 
0FFD0706 
0FF00707 
OFF 00 7 08 
0FF00709 
0FF007U 
0FF007U 
OFFO0712 
UFF0071J 
0FF0071A 
OFF 007 15 
CFF007 16 
0FFi)07 1 7 
0FFD0718 
OF F007 19 
1FF00720 
UFF DO 7 2 l 
UFF00722 
OF FDD 7 23 


V 
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05/02/68 


f H"> 

• 

- EFN S( U3C 

- STATEMENT - 

IFMS) - 


f itnC riuu 


U ) 



0FFOO725 






0FF0O7 ?*> 

*** CALCULATE 

r HL INTEGRAL 

OF CP/T OT FKClM 

0.0 TO T 

0FFD07 ? 7 






OFF DO 7 ?fl 

l it ICAL 

CIRCLE, 

SIXTY 1 ? 



Uf F0U7 9 

uLmL 


In f F ? 

JOULEt 

MACH f 

OF F 007 30 

rlAL, 


MJN, 

A I NRt 

POUT f 

OFF DOT . U 

U JM 





0FFD0732 

iM c&t* 

ciLADE, 


COUNT 


CFFD0733 

^ uGlCAL 


CFF , 

OK f 

POFl r f 

OFF Dl)7 34 

< f S T A d « 


IJNF 



Of FD073S 

IMTeriuK 

tfiL E 




UFFD0736 


--L Kjt L |KOc L 2 
IMM.H /VECT'R/ 


0FFU0737 

0FFG073B 


. AL P H A ( 29, )H, ATARI 25, 11 I , 3E TA ( 2 9, 1 1 ) ,BH( 32 ) * 8LADE ( 25 ) » 8T (321 ,C I PXL QFFU07 39 
. E(Z5),i,U( 2i»ill,CPCO(fc),CR(32,ll),CSL OP? (32,11) ,CU(32,1\ > , CX ( 32 , U 0FF0074U 
» I ,CXM( ii ) ,C XNtW( U) ,uA I i C) , Get. Ml 11),0£PV(3? ,il) ,OF (20) »UFLOW ( 32 ), FOFf 00741 
.LUM32 >.FU-.m( 23) .FUUNOIZC, .>,101,1 REF (25,11 > , 1 T YPF ( 23 ) , Me TA L( 2 I , Mfc r OFF00742 
•H '0(2>l, M| h(8, 25), hlNR Id, 2 3) »MOUT I 8,2 31 , MIJUTRI 8 ,25 ) ,hl N( 23 I , NR A0( 20FF03743 
..>),NS( 23) ,NSS( 25),.»TC< 251 ,NTrt(25> ,NXIT(25I ,OBAR (25 ,11 ) , OFF 1)( 23 I , PO OFF 00744 
. ( 32, It I, R(32, 111 »RAPI 8,?5) , FUPP ( 8 , 25) ,RC JR VE ( 32 ,1 1 ) ,RH( 3 2) • FI NT ( li OFF 00745 
. ),FKM( 1),PS( ;i),RSLUPE( 2 2 , 11 ) , kULE 1 25 ) , SHAPE ( 25 > , S )XTY5 ( 25 ) , SOI e , 20FF00748 

• 3 ) , SCR ( 3, 25) ,SS( £, 25) , SSM 6, 25) , T£RHC (il),TH(6,25) ,THC (8 ,2 5) , I HCM OFF 007 47 

. 8,25), TH.. 18, 25), I ITlfc ( ?t ) t TIM 32 , 1 1 ) , 1 STAT1 1 1 ) , X<?2 I 0FF007A8 

COMMON /SCALAR/ 0FF00749 

.A, A A, AiQao, A 20ZA U, A3U i A 0 , A404A0 , A 505 A 0 , ANG , 8 , Bb ,CC ,CFNT , CM , C ML AN, C0FFO07 50 

• MEANP, C M2, COR tC, COUNT , CP , CP I 2, C P ! 5 ,CP 1 4, CPI 5 ,CPI6 , CP02 , C Pdi , CP04, COFFD075 1 
•PG5, GAMP, DCP, OECFLO,OFACT,fcMACH,F?ISON,FACTM,G f GAMMtR,GASK,GJ,&R2, 0FFD0752 
. H,t-lGH,HIPFES.i,lG,IGG,IOUTTF,l PASS* J *JJ*JM,JM1 , Jl ULF, K, KDCL, KK, L, 0FF00753 
.L AdT ,LCl,Lt YcL.L ST ,LST Av>C ,M, MACH, MAXP T,M1 NPT ,N ,NBL AOE, NDATA, NL I NLS0FFD07 54 
. , N SETS, NS PE EG, NT Oil S, NX, NX 1, OFF, OK, PHI ,PLCW,U,RA,R ADI AN, ROFLO, REF,0FFD07 55 
. RES TAR,R MACH. S,SGL IU, SPl CO, STOP, T, TER MO, THICK, TIMF ,T OL AT ,T CLCX , TGL OF FP07 56 


• MIN, TOLR » TONE , V, VMI.YE S 
I HER M3= CFCC( 1 )* ALOG( Z ) ♦ (CPLOl 2 )♦ ( CPU 2«- < CPQ3-*- ( CP04+CP05 * Z) *Z ) *Z) 
X *Z ) *1 
RETURN 
>ni: 


0FFD0757 

OFF00758 

OFFD0759 

0FFD0760 

0FF00761 


B-73 



lFN 


i>'.U«C - o T A T L « v t NT 


1 P N < S I 


(J ‘j/0^/6* 


M 


r i ^ iiv :l ii > 
;<(<) 
r = A*3tJic.J 
, tuf-m 

u.L 


nFFi)oi *) 
uFF r Wf 1 
<J F lMj 1 1 J 
' 'X Hil> 
Ui FiOl V; 




B-74 



0 j/ 0.1 /Lb 





- ( FN SOURC 

C STATEMENT - 

IFMSI - 


* 


1 UBkCUT INF XDEK 

IV! Y , D VDX ) 



OFF 002 Q 0 

5 , 






OFFD0291 

: 


CALCULATE THE FIRST DERIVATIVE OF V WITH 

RESPECT TO AXIAL 

UFFD0292 

£ 


LENGTH. 




HFFD0293 







0FF00294 

l 


IbtlCAL ClKCLt, 

sixty? 



OFFDO? 9b 

1 


f » AL 

I*CF, 

j*)ULe, 

MACH, 

OFFD029F 



X METAL, 

HIN, 

MINR, 

HOOT t 

0FFD0297 



y MCuiR 




OF F 002 9 B 



INltGtR BLADE, 


COUNT 


OFFD0299 



LjMCAL 

OFF, 

OK, 

RDFLC, 

OFFOOBOO 



A kLSTA.x, 

TUNE 



OFFD030 1 



iMC-Gt* FuL t 




OFF 003 02 



k;.aL KDEl ,KDEL> 




OFFDO^CP 


CuMMON /VECTOR/ 


DFF0030<» 


• ALPHA! 29, 11 1. ATARI 25, l 1 ) ,DE7 A! 29, 1 1 ) , BHI 32 ) , BLADE! 25),BT (32) ,CI RCLOFFD0305 
»E(25).CU( 32, 11), CP iO(o),CK(52,ll)«C SLOPE (52, 11) »CU (32»11>»CX (32,11 OFF DO 306 
. l.CXMI lD.CXNtw! Ill, DA I 1C) ,OEL Ml ll),DEPVt 32,11) ,0F 1201 ,D FLOW l 321 ,F OFF 0030 7 

• LOW ( 32) , FORM! • * ) , FOUND I 20, j, 10) , I PEF 1 2 5, 11 1 , 1 TYPE (25 1, he TALI 2) , METOFFO0308 
•hCD! 25) .MINI 6,25 1, MI NR! 3,25) ,MOUT I 8,25) , MllUTR! 8,25 1 ,HIN! 25), NkAD! 20FF00309 
•5),NS(25),NSS(25),NTCI 2 5), NTH! 2 5) ,NXI T(25) , OB AR (25 ,11 ) ,OFFO( 25) , POOPFU0310 
.132, 11 ),R(32, 11) , RAD! 6,25) ,RADM 3,25) .RCURVt 132 ,11 ) ,RH! 3 2) ,R1NT ( 1 1 OFFD031 1 

-- ..»l,K>'K(LUKSi 32), RSLUPE! 32, 11), RULE 125), SHAPE! 25) .SIXTY5 1 25 ) , SO! 8 .20FFDC312 . 
•5).SOR18,L51,SS( fc, 25) , SSR ( 0, 25) , TERMC ( 11 ) ,TH18,25) ,THC(8,25) ,THCR( OFF00313 
. a, 25 ),THK 18,25), TITLE! 36) , TOI52 ,11 ) , TSTAT! 11 ) , X(32 ) 0FFD031A 

common /Scalar/ offdo315 

. A, AA.AIOAO, A2O2A0, A3C 3A0, AA05A0, A505A0, ANG,B,bB,CC ,CENT , CM.CME AN,C 0FFD03 16 
•MEANP,CM2,CJRtC,COUNT,CP,CP12,CPI 3,CPI4,CPI5,CPI6,CP02 ,CP03,CPOA,COFFD0317 
» RGj, DAMP, DC P, DEL FLO, OF ACT , EM AC H,EP ISON, FAC TM, b, GAMMER, G ASK, GJ,GR2, OFFD0318 

• H,HI€H,HlPRcS, I, IG.IGD, 1CUTTR, I PASS, J • JJ , JM, JM1 , JOULE, K, KDEL,KK, L, 0FFD03 19 

• LAST.LCl, LEVEL, LSI, LSI AGE, M, MACH, MAXPT.MINPT.N, NBLADE.NO AT A, ML I NESOFFDO320 

• . NSETS , NSPt ED.NTUBES.NX «NX1 .OFF ,0K.« PH I « PLOW , Q,R A,R ADI AN, RDFLC, REF, OFF 00321 
. REST AR, KM AC H. S, SOL ID, SPEED, STOP, T.TERND, THICK, TIME ,TOLAT ,TOLCX,TOLOFF00322 

• MI N, TCJLR, TON E, V, VM I, YL S OFFD0323 

DIMENSION . Y1 22, 11), DYDXI32.il) OFFD032A 

UU 5 1=2, NX1 OFFD0325 

AA= IY( 1, J) -Y(I-1,J))/XI1-1) OFFO0326 

bb* (YlI+l.J) -Y(1,J))/X(I) 0FF00327 

L'YDX! I « J )*( AA+EB )* • 5 OFFD0323 

5 CONTINUE OFFD0329 

._6 RETURN ... .. . OFFD0330 

END 0FF00331 


B-75 



\ 



APPENDIX C 


PROGRAM FLOW CHARTS 



INDEX 


Subroutine Page 


BOSS C-l 

CAMBER C-3 

C AXIAL C-4 

CHOKE C-6 

COREC2 C-7 

DATA C-8 

DERUL1 C -9 

DERUL2 C-10 

DEVI C-ll 

DEVI8 C-12 

ENT ALP C - 13 

ERROR C-14 

EXPB C- 16 

FACTM1 C-17 

FACTM2 C - 18 

GAM C- 19 

HALT C -20 

INEST C-2 1 

INPUT C-23 

INTEG C-2 7 

KDEL2 C-28 

LOSE C-29 

LOSS C-30 

MAIN C-32 

OUT1 C-33 

OUT2 C-34 

OUT3 C-36 

OUTP C-3 9 

PRFIT1 C-40 

PRFIT2 C-4 1 

PSIDE C-44 

REF1 C-45 

REF2 C-46 

RSTART C-4 7 

SLINE C-48 

SLOPE c-49 

SLOPEN c-50 

SP-36 C-51 

STREAM C-52 

THERM1 c-53 

THERM2 c -54 

THERM3 C-55 

TIME C-56 

XDERIV. . . c-57 

C - '»»' 



























* 

V. 


vS 

* 






^ t/Js'j<yrs/V£' 



C-3 









JtA'MO = LjMJT 



' \ 

u 


\ 


■I 

•> 







C £ ( 



C-7 


ye / se#/ vjy<7 3 #fJ.ne?ans 



C-8 






C-9 


: e/tMo# / scJtSt / 



C-10 



pjfvJ Cos pep) 



> * * 

U . ' C\ 

» M > 


W t 
> -: ^ 

5 * I 

V : 


. S R 

^ fc ,U 

St* 

v «a\ 

VO 

a 5 « 



C-ll 



2£S* ( ■/), D CD, ZeJjTit < i) 



C- 12 




6L/8F0Y/TJFF F/VT/Ufi 


Faff 


Cz/j/^'j SjXTY-F 

/FAL X/FxF, J JxiF f .tfA-tfi /HFF/ii * 
/>';/; ' Mi/YF, A'Fv r] A'utT/F 

■SAt r £ &F£ j'F AFF j v.'/.^/t/T" 

/ F-rsFAS- Fo-i. J 

x ; r- r AF, -^M'F 
££TiT FF£ /puiF 
/A 8- /<■£>£'{ Z 


X 


( F4 , Tf£ 




b/<? 7~- 

T£f£a\ / Ct) 


J 


TSTAT-( J) 

- tt/c P + T~ 

;xr 

£> 0 A3 
./Tf£z J.2F , 

V J 


bOr- i 
7 if F/FM / 
C^£r/rr( 5J_)_j 


X o 



- + 


T STATCJ) 

~TZ 


£~ ~U~ 
A/xT 
-a a/ jr 


/ &p / 


C-13 




n- 14 
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INPUT FORMAT AND SAMPLE DATA SET 



APPENDIX D 

Part A. Input Format — Data Preparation 





PROGRAM AN-36 DATA PREPARATION 


Tae N36 program is an off-design axial-flow compressor performance 
calculation program (IBM 7094) which iterates on efficiency through use of 
blade element loss information. The total loss coefficient for any blade 
element is based on reference total loss, plus an off-design increment in 
total loss correlated as a function of i - i re f and M'. The reference total loss 
is computed using correlations of reference profile loss parameter vs 
diffusion factor and using shock loss across a normal shock-in-passage. 

All integer input data must be placed in the right most columns of the 
field specified. Decimal numbers should be placed in the left most part 
of the field and the decimal point must be included. Alphameric information 
must be spelled exactly as specified. No cards may be left out even if zero 
or blank unless specifically noted. See the following sample card format in 
connection with the following discussion. 

CARD 1— COLUMNS 2-10 $DSTART $ 

This is used to recover from an error condition when several data sets 
are being run. Note spacing as shown. 

CARDS 2-4— TITLE CARDS 

Three cards to be used for identification. Columns 1-72 may be used. 

CARDS 5-6 — CONSTANT PRESSURE SPECIFIC HEAT AS FUNCTION OF 
ABSOLUTE TEMPERATURE 

The fields shown on these cards are for the coefficients of a fifth degree 
polynomial used to evaluate the specific heat at constant pressure: 

Cp(T) = ao + aj T + a2 T2 + a 3 T 3 + a^ t 4 + a 5 T 9 


Values of these coefficients for air are shown in the following table. 


Temperature 

0° to 1700°R 

500° to 3400°R 

1500° to 5000°R 

ao 

0. 23746571 

0. 257348261 

0. 18198209 

a l 

0. 21961999 X10 -4 

-0. 82118436 X10 -4 

0. 87076455 X10‘ 4 

a 2 

-0. 87791471 X10' 7 

0. 11967112 X10 -6 

-0. 28093746 X10‘ 7 

a 3 

0. 1399136 X10 -9 

-0. 57795091 X10" 10 

0. 50b06304 X10' 11 

a 4 

-0. 78056154 X10 -13 

0. 12572563 X10“ 13 

-0.40556182 X10 -15 

a 5 

0. 15042604 X10" 16 

-0. 10414624 X10" 17 

0. 18191946 X10" 19 
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CARD 7— GENERAL DATA AND OPTIONS 

Columna 1-5. (Integer, right adjusted) 

The number of axial stations < 32. There are to be four stations ahead of 

and three stations behind the blades. See Figures 1-3 for typical configurations. 
Note that the number of blade sections is equal to the value of Item 1 minus 7. 

Also note that some of these passages may be empty and are referred to as 
annular rows. Energy and angular momentum are conserved across an annular 
row. 

Columns 6-10. (Integer, right adjusted) 

The number of streamlines at which calculations are to be performed; 
must be either 5, 7, 9, or 11. 

Columns 11-15. (right adjusted) 

The number of speed lines desired, < 15. 

Columns 16-20. (right adjusted) 

The maximum number of data points to be calculated per speed line. 

Columns 21-25. (right adjusted) 

The minimum number of data points to be calculated per speed line. 

Columns 31-35. (right adjusted) 

= 1 if the results at all streamlines are to be printed 
= 2 if the results at the odd numbered streamlines are to be printed 
- 3 if the hub, mean, and tip streamline quantities are to be printed 
= 4 if the hub and tip quantities are to be printed 

Columns 41-45. (right adjusted) 

1 if only overall mass averaged quantities are to be printed 
(T , temperature ratio, pressure ratio, w , etc.) 

2 if the mass averaged blade row properties are also to be printed 

3 if ali interstage data are also to be printed 
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CARD 8— GENERAL DATA AND RELATIVE ERROR TOLERANCES 
> Columns 1-10. 

Design speed, rpm. 

Columns 1 1-20. 

Execution time - the number of minutes (fixed point number) the cal- 
culation is permitted to run. If computations are still proceeding at the end 
of this time, the computation is stopped and output is printed to reflect 
computed performance at the end of permitted execution time. 

Columns 21-30. 

Inlet total temperature in °R. 

Columns 31-40. 

Inlet total pressure in psia. 

Columns 41-50. 

Relative error tolerance on axial velocity, 0.01 is suggested. 

Columns 51-60. 

Minimum mass flow rate reduction. ( lb/sec) 

Columns 6 1-70. 

Relative error tolerance on continuity, 0.0005 is suggested. 

Columns 71-80. 

Relative error tolerance on enthalpy, 0.01 is suggested. 

CARD 9— GENERAL DATA AND RELATIVE ERROR TOLERANCES 
Columns 1-10. 

Relative error tolerance on efficiency, 0.01 is suggested. 

Columns 11-20. 

Relative error tolerance on temperature rise, 0.01 is suggested. 
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Columns 21-30. 


Molecular weight of the flowing fluid, 28. 97 for air. 
Columns 31-40. 


Iteration damping factor, 10. 0 is suitable under most circumstances. 

CARD TYPE 10— STREAMTUBE MASS FLOW 

In the data fields shown, enter the fraction of the mass flow between 
each streamline and the hub. The first value must be 0.0, the final value 
must be 1.0 and the entered values must progress monotonically. Continue 
on another card if required. 

CARD TYPE 11 — FLOW PATH AND BLOCKAGE INFORMATION 

There must be one card for each axial station, with the program requiring 
four axial stations upstream of the first blade row and three axial stations 
downstream of the last blade row. Units used must be consistent with those 
used for inlet total pressure. The blockage factor at a hub or tip represents 
the fraction of the local geometric annulus area not blocked there. 

The following cards. Types 12-16, are used to identify blade rows 
throughout the compressor, from front to rear consecutively. While a dummy 
blade row (typically used to provide extra inlet or exit stations, or spacing 
between blade row) requires only one Type 12 card and one Type 13 card, a 
rotor or stator blade row requires each of these plus as many groups of 
card Types 14-16 as required to provide all the necessary blade element 
data. As described below, evaluation of reference incidence through the 
criterion of suction surface tangency or by means of table input requires 
the inclusion of one extra blade element data table (i. e. , one extra group 
of Card Types 14-16). 

CARD TYPE 12 — BLADE ROW INFORMATION 

Columns 1-10. (left adjusted) 

Rotor designates a rotor blade row 

Stator designates a stator blade row 

Annulus designates a dummy row with no blades. No further information 
need be entered on this card for a dummy blade row. 

Columns 11-15. (right adjusted) 

Identification number for reference profile loss data set. Up to 999 loss 
data sets can be stored as permanent data. 
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Columns 21-30. (left adjusted) 


Specifies means of evaluating the reference incidence angle at each 
streamline for the blade row. 


2-D SP36 


3-D SP36 


SUCTION 


Denotes use of NASA 2-D rules. See Reference 4. Leave 1 
blank column between D and S. 


Denotes use of NASA 3-D rules, 
blank column between D and S. 


See Reference 4. Leave 1 


TABLE 


Denotes use of the tangent to the suction surface at its inter- 
section with the leading edge circle to define the reference 
incidence direction. This may be used only for dca blades, and 
a table of values for ler/t max must be included at the end of 

tabled blade element data in the format of Card Types 14-16. 
ler/tmax is input as a function of average streamline radius. 

Denotes use of tabled input for reference incidence angle. This 
table is in the format of Card Types 14-16 and must be placed 
at the end of the tabled blade element data. These data are input 
as a function of average streamline radius, and reflect a stream- 
wise orientation (as opposed to stacking plane orientation). 

Columns 31-40. (left adjusted) 

Identifies one of two types of blade sections. 

65-SERIES NACA 65-series blade section. Leave no blank columns. 

CIRCULAR Double circular- arc blade section. 

Columns 51-60. 

Information specifies the corrections made to NASA 2-D reference 
deviation angle. See Equation 287 of Reference 4. 

INCIDENCE Causes the term ( i * - i„ „ )( — \ . 

v i ref 1 2-D n dl ' 2-D to be included 

in the evaluation of 8 C using Equation 287. 

DEVIATION Causes the term ( S c - 8 2 _ D ) to be included in the evaluation 
Of 8 c using Equation 287. 

BOTH Causes both terms mentioned above to be used in evaluating 8 c . 

NONE Deletes both terms mentioned above from the evaluation of 8 
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Columns 61-70. Form factor; a multiplier in Kj of Equation 286, Reference 4. 


1.0 for NASA 65- series airfoils 

0. 7 for double -circular -arc airfoils 

Columns 71-80, Shape factor; a multiplier in Kg of Equation 287, Reference 4. 

1.0 for NASA 65- series airfoils 

0. 7 for double-circular-arc airfoils 

CARD TYPE 13— FLOW INCREMENT CARD 

Columns 1-10. The ratio of exit flow rate to inlet flow rate for the subject 
" ~~ ” blade row. 

As indicated earlier, card Types 14-16 are used in sets of one each to 
supply blade element data for each rotor or stator blade row in the compressor. . 
Before discussing the format of these cards further, it is appropriate to sum- 
marize the required blade element information, in the proper input order. 


Input Item 

Radius 

Orientation 

Inlet metal angle 

Inlet 

Stacking plane 

Exit metal angle 

Exit 

Stacking plane 

Max thickness/ chord 

Average 

Stream plane 

Throat /spacing 

Inlet 

Stream plane 

Solidity 

Average 

Stream plane 

Flow angle at shock 

Inlet 

Stream plane 


Note; as previously discussed, options SUCTION and TABLE in Columns 
21-30 of Card Type 12 each require one additional table of blade element 
data for each blade row where these options are used. 

CARD TYPE 14— BLADE ELEMENT DATA 

Columns 1-5. (right adjusted) 

Enter the integer number of points to be included in the associated table. 
Maximum number of points equals eight, (straight-line interpolation between 
points is used in the program) 
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CARD TYPE 15 — BLADE ELEMENT DATA 


\ Columns 1-80. (In fields of 10 columns each) 

Enter individual items of blade element data, using as many fields as 
indicated on the corresponding Card Type 14. The corresponding radii 
must increase monotonically from left to right in the table. 

CARD TYPE 16 — BLADE ELEMENT DATA 

Columns 1-80, (In fields of 10 columns each) 

Enter radius values corresponding to the data items shown on the cor- 
responding Card Type 15. Radii must increase monotonically from left to 
right in the table. 

With all necessary blade element information established, row by row 
from front to rear of the compressor, there remains only to specify those 
combinations of speed and flow rate at which compressor performance is to 
be calculated. This is done using as many cards of the following type as 
needed. 

CARD TYPE 17— SPEED, FLOW, AND FLOW DECREMENT 
Columns 1-10, (left adjusted) 


FLOW 

Columns 11-20. 


Total flow entering compressor, lb/sec 
Columns 21-30. 


Wheel speed as fraction of design corrected speed. (1.0 = design) 

Columns 31-40. 

Minimum flow rate decrement. Flow rate decrement is only used if the 
speed and flow combination for this card results in a choked condition some- 
where in the machine. The choke check is made after complete convergence is 
attained and if 0/A*< 1. 05 at any station, any streamline in the compressor, 
the choke check is considered failed. If the program is computing performance 
at points along a characteristic, and successive FLOW cards carry increasing 
values of flow rate, the program backs off when failure of the choke check is 
encountered after at least one point on the characteristic has been established 
satisfactorily. The program reattempts performance computations at a flow 
rate midway between the last successful value and the value at which choke was 
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encountered. This is continued until the minimum flow decrement is violated. 
Note that the minimum flow decrement is also specified earlier in the program 
data. The earlier specified value is used wherever a value is not specified 
on the FLOW card(s). 
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N-36 - Compressor Off-Design Program (Program IV) 
Format of Data Input Cards 
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Axial Flow Compressor Computer Program 
for Calculating Off-Design Performance 

(Program IV) 


b y 


H. F. Creveling and R. H. Carmody 


ABSTRACT 

A compressor off-design performance program was developed 
to account for complete radial equilibrium of flow and to determine 
energy addition and adiabatic efficiency on the basis of blade 
element data for air turning and total pressure loss. The program 
user has available as options either double -circular-arc or NACA 
6 5 -series blade performance data, plus the capability of specifying 
reference incidence angle through tabular input or through the 
criterion of suction surface tangency for any double-circular -arc 
blade row. The off-reference increment in deviation angle is 
furnished in the form of a correlation of selected NACA data. 
Adiabatic efficiency is determined iteratively for each streamline 
in each blade row using: (1) correlated reference profile loss 
data and reference shock loss computed on the basis of a normal 
shock-in-passage and (2) correlated results of NACA data ex- 
pressing the off-reference increment in total pressure loss co- 
efficient. The program can handle up to 32 axial stations, and 
the user may employ dummy blade rows as desired. 
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